edtarchivesunit.pas

工商收费系统,主要是管理非税收收入的费用的管理

unit EdtArchivesUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ConEdtUnit, Mask, DBCtrls, StdCtrls, DB, ADODB, ExtCtrls,
  dxCntner, dxExEdtr, dxEdLib, Buttons, ToolWin, ComCtrls;

type
  TArchivesEdtFrm = class(TConEdtFrm)
    lblPrincibal: TLabel;
    dbedtPricibal: TDBEdit;
    lblAddress: TLabel;
    dbedtAddress: TDBEdit;
    lblChargeItem1: TLabel;
    lblLogout: TLabel;
    lblChargeItem3: TLabel;
    lblBisTitle: TLabel;
    lblPricIdCard: TLabel;
    lblBisScope: TLabel;
    lblChargeItem2: TLabel;
    lbl1Shutout: TLabel;
    dbedtBisTitle: TDBEdit;
    dbedtPricIdCard: TDBEdit;
    dbedtBisScope: TDBEdit;
    dbcbbShutOut: TDBComboBox;
    dbcbbLogOut: TDBComboBox;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    ADOConnection1: TADOConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ArchivesEdtFrm: TArchivesEdtFrm;

implementation

{$R *.dfm}

end.