unit Sys100_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, Buttons, Db, Mask, DBCtrls,
  Wwintl, wwdbedit, Wwdbspin, ToolWin, Grids, Wwdbigrd, Wwdbgrid,
  Menus, ADODB, dxExEdtr, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ActnList, dxDBTLCl, dxGrClms;

type
  TSys100_01Form = class(TForm)
    DataSource1: TDataSource;
    qrySys000: TADOQuery;
    Panel1: TPanel;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbInsert: TToolButton;
    tlbDelete: TToolButton;
    ToolButton2: TToolButton;
    tlbExit: TToolButton;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActInsert: TAction;
    ActDelete: TAction;
    ActExit: TAction;
    ScrollBox1: TScrollBox;
    dxDBGrid1: TdxDBGrid;
    qrySys000FNo: TAutoIncField;
    qrySys000FName: TWideStringField;
    qrySys000FCompany: TWideStringField;
    qrySys000FDate: TDateTimeField;
    qrySys000FPath: TWideStringField;
    qrySys000FType: TSmallintField;
    qrySys000FHost: TWideStringField;
    qrySys000FUser: TWideStringField;
    qrySys000FPass: TWideStringField;
    qrySys000FVersion: TWideStringField;
    dxDBGrid1FNo: TdxDBGridMaskColumn;
    dxDBGrid1FName: TdxDBGridColumn;
    dxDBGrid1FCompany: TdxDBGridColumn;
    dxDBGrid1FDate: TdxDBGridDateColumn;
    dxDBGrid1FPath: TdxDBGridColumn;
    dxDBGrid1FType: TdxDBGridMaskColumn;
    dxDBGrid1FHost: TdxDBGridColumn;
    dxDBGrid1FUser: TdxDBGridColumn;
    dxDBGrid1FPass: TdxDBGridColumn;
    dxDBGrid1FVersion: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActFirstExecute(Sender: TObject);
    procedure ActPriorExecute(Sender: TObject);
    procedure ActNextExecute(Sender: TObject);
    procedure ActLastExecute(Sender: TObject);
    procedure ActInsertExecute(Sender: TObject);
    procedure ActDeleteExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure qrySys000AfterScroll(DataSet: TDataSet);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sys100_01Form: TSys100_01Form;

implementation

uses SYSDATA, CommFun, Sys000_01;

{$R *.DFM}

procedure TSys100_01Form.SetInterface;
begin
  Font.Name:=AFontName;
  Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
  Caption:=GetDBString('SYS10001001');            //帳套管理
  ActFirst.Caption:=GetDBString('COM00005001');   //最前
  ActPrior.Caption:=GetDBString('COM00005002');   //上移
  ActNext.Caption:=GetDBString('COM00005003');    //下移
  ActLast.Caption:=GetDBString('COM00005004');    //最后
  ActInsert.Caption:=GetDBString('COM00005005');  //新增
  ActDelete.Caption:=GetDBString('COM00005007');  //刪除
  ActExit.Caption:=GetDBString('COM00005015');    //退出
  qrySys000.FieldByName('FName').DisplayLabel:=GetDBString('SYS10001002');     //帳套名稱
  qrySys000.FieldByName('FCompany').DisplayLabel:=GetDBString('SYS10001003');  //公司名稱
  qrySys000.FieldByName('FDate').DisplayLabel:=GetDBString('SYS10001004');     //建帳日期
  qrySys000.FieldByName('FPath').DisplayLabel:=GetDBString('SYS10001005');     //數據路徑
end;

procedure TSys100_01Form.FormCreate(Sender: TObject);
begin
  qrySys000.Open;
  SetInterface;
end;

procedure TSys100_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qrySys000.Close;
  Action:=caFree;
end;

procedure TSys100_01Form.ActFirstExecute(Sender: TObject);
begin
//最前
  if qrySys000.IsEmpty then Exit;
  qrySys000.First;
  ActFirst.Enabled:=False;
  ActPrior.Enabled:=False;
  ActNext.Enabled:=True;
  ActLast.Enabled:=True;
end;

procedure TSys100_01Form.ActPriorExecute(Sender: TObject);
begin
//上移
  if qrySys000.IsEmpty then Exit;
  qrySys000.Prior;
  ActNext.Enabled:=not qrySys000.Eof;
  ActLast.Enabled:=not qrySys000.Eof;
  ActFirst.Enabled:=not qrySys000.Bof;
  ActPrior.Enabled:=not qrySys000.Bof;
end;

procedure TSys100_01Form.ActNextExecute(Sender: TObject);
begin
//下移
  if qrySys000.IsEmpty then Exit;
  qrySys000.Next;
  ActNext.Enabled:=not qrySys000.Eof;
  ActLast.Enabled:=not qrySys000.Eof;
  ActFirst.Enabled:=not qrySys000.Bof;
  ActPrior.Enabled:=not qrySys000.Bof;
end;

procedure TSys100_01Form.ActLastExecute(Sender: TObject);
begin
//最后
  if qrySys000.IsEmpty then Exit;
  qrySys000.Last;
  ActNext.Enabled:=False;
  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
  ActPrior.Enabled:=True;
end;

procedure TSys100_01Form.ActInsertExecute(Sender: TObject);
begin
//新增
  try
    SYSDM.Timer1.Enabled:=False;
    Sys000_01Form:=TSys000_01Form.Create(Application);
    Sys000_01Form.ShowModal;
  finally
    SYSDM.Timer1.Enabled:=True;
  end;
end;

procedure TSys100_01Form.ActDeleteExecute(Sender: TObject);
begin
//刪除
  if qrySys000.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表記錄為空，操作無效
    Exit;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //確定要刪除此記錄嗎?
  begin
    qrySys000.Delete;
  end;
end;

procedure TSys100_01Form.ActExitExecute(Sender: TObject);
begin
//退出
  Close;
end;

procedure TSys100_01Form.qrySys000AfterScroll(DataSet: TDataSet);
begin
  ActNext.Enabled:=not qrySys000.Eof;
  ActLast.Enabled:=not qrySys000.Eof;
  ActFirst.Enabled:=not qrySys000.Bof;
  ActPrior.Enabled:=not qrySys000.Bof;
end;

procedure TSys100_01Form.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_F1 then
    HtmlHelp(Application.Handle, AHelpFile+'::/'+AProgramID+'.htm', $0000, nil);
end;

initialization
  RegisterClass(TSys100_01Form);

finalization
  UnRegisterClass(TSys100_01Form);

end.