gld600_02.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Gld600_02;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BAS100_01, FR_DSet, FR_DBSet, FR_Class, ComCtrls, ToolWin, ExtCtrls,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, Db, DBClient, StdCtrls, dxExEdtr;

type
  TGld600_02Form = class(TBas100_01Form)
    Panel1: TPanel;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    tlbSearch: TToolButton;
    tlbPrint: TToolButton;
    ToolButton4: TToolButton;
    tlbExit: TToolButton;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    dxDBGrid1: TdxDBGrid;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    Label1: TLabel;
    dxDBGrid1G500_001: TdxDBGridMaskColumn;
    dxDBGrid1G500_002: TdxDBGridMaskColumn;
    dxDBGrid1G500_003: TdxDBGridMaskColumn;
    dxDBGrid1G500_004: TdxDBGridMaskColumn;
    dxDBGrid1G500_005: TdxDBGridMaskColumn;
    dxDBGrid1G500_006: TdxDBGridMaskColumn;
    dxDBGrid1G500_007: TdxDBGridMaskColumn;
    dxDBGrid1G500_008: TdxDBGridMaskColumn;
    dxDBGrid1G500_009: TdxDBGridMaskColumn;
    Label2: TLabel;
    Label3: TLabel;
    tlbSelect: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Gld600_02Form: TGld600_02Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure TGld600_02Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

procedure TGld600_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

initialization
  RegisterClass(TGld600_02Form);

finalization
  UnRegisterClass(TGld600_02Form);

end.