customer.~pas

学习程序,用于初学进销存的参考代码学习程序,用于初学进销存的参考代码

unit customer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, basetoolbar, DB, ADODB, ImgList, ComCtrls, Grids, DBGrids,
  Buttons, ToolWin, StdCtrls, DBCtrls, Mask, DBGridEh, DBSumLst;

type
  TfrmCustomer = class(TfrmBaseToolBar)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label17: TLabel;
    DB_CNo: TDBEdit;
    DB_CName: TDBEdit;
    DB_CType: TDBLookupComboBox;
    DB_CLevel: TDBLookupComboBox;
    DB_CSDate: TDBEdit;
    DB_CAddress: TDBEdit;
    DB_CCredit: TDBLookupComboBox;
    DB_CSeller: TDBEdit;
    DB_CPhone: TDBEdit;
    DB_CEmail: TDBEdit;
    DB_CBank_No: TDBEdit;
    DB_CCorporate: TDBEdit;
    DB_CFax: TDBEdit;
    DB_CHttp: TDBEdit;
    DB_CSum_Money: TDBEdit;
    DB_CContract_Count: TDBEdit;
    DB_Memo: TDBMemo;
    ADO_BaseID: TAutoIncField;
    ADO_BaseCuster_No: TStringField;
    ADO_BaseCuster_Name: TStringField;
    ADO_BaseCuster_Type_ID: TIntegerField;
    ADO_BaseBegin_Date: TDateTimeField;
    ADO_BaseSeller: TStringField;
    ADO_BaseCredit: TStringField;
    ADO_BaseCLevel: TStringField;
    ADO_BaseAddress: TStringField;
    ADO_BaseEmail: TStringField;
    ADO_BasePhone: TStringField;
    ADO_BaseFax: TStringField;
    ADO_BaseHttp: TStringField;
    ADO_BaseBank_No: TStringField;
    ADO_BaseTax_No: TStringField;
    ADO_BaseCorporate: TStringField;
    ADO_BaseContract_Count: TIntegerField;
    ADO_BaseSum_Money: TBCDField;
    ADO_BaseNote: TStringField;
    ADO_Type: TADOTable;
    ADO_Level: TADOTable;
    ADO_Credit: TADOTable;
    DBG_Customer: TDBGrid;
    DS_CType: TDataSource;
    DS_Credit: TDataSource;
    DS_Level: TDataSource;
    DBGrid1: TDBGrid;
    ADO_TypeID: TIntegerField;
    ADO_TypeType_No: TStringField;
    ADO_TypeType_Des: TStringField;
    ADO_BaseType_Name: TStringField;
    ADO_Baselevel_name: TStringField;
    ADO_Basecredit_name: TStringField;
    procedure FormShow(Sender: TObject);
    procedure SB_AddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCustomer: TfrmCustomer;

implementation

uses unit_main_dm, cqueryfilter;

{$R *.dfm}

procedure TfrmCustomer.FormShow(Sender: TObject);
begin
  inherited;
    //ADO_Type.Active:=true;
    //ADO_Credit.Active:=true;
    //ADO_Level.Active:=true;
    Main_DM.RegDBGridTitleCaption('frmCustomer',DBG_Customer);
   //DBG_Customer.Fields[3].DisplayLabel:='bbb';

end;

procedure TfrmCustomer.SB_AddClick(Sender: TObject);
begin
  inherited;
    DB_CNo.Text:=Main_DM.AutoCreateDateTimeNo;
end;

end.