sys100_01.pas.svn-base

一个用Delphi开发的ERP软件

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;
    qrySys000S000_001: TAutoIncField;
    qrySys000S000_002: TStringField;
    qrySys000S000_003: TStringField;
    qrySys000S000_004: TDateTimeField;
    qrySys000S000_005: TStringField;
    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;
    dxDBGrid1S000_002: TdxDBGridColumn;
    dxDBGrid1S000_003: TdxDBGridColumn;
    dxDBGrid1S000_004: TdxDBGridDateColumn;
    dxDBGrid1S000_005: 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');  //退出
  qrySys000S000_002.DisplayLabel:=GetDBString('SYS10001002');  //帐套名称
  qrySys000S000_003.DisplayLabel:=GetDBString('SYS10001003');  //公司名称
  qrySys000S000_004.DisplayLabel:=GetDBString('SYS10001004');  //建帐日期
  qrySys000S000_005.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.