unitcustomer.pas

仓储系统

unit UnitCustomer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DB, Grids, DBGrids, DBCtrls, Buttons,
  ExtCtrls;

type
  TfrmCustomer = class(TForm)
    Panel1: TPanel;
    lblKhdm: TLabel;
    lblkhmc: TLabel;
    edtKhdm: TEdit;
    edtKhmc: TEdit;
    cbStopAppMark: TCheckBox;
    Panel2: TPanel;
    BitBtnAdd: TBitBtn;
    BitBtnErase: TBitBtn;
    BitBtnModify: TBitBtn;
    BitBtnSave: TBitBtn;
    BitBtnCancel: TBitBtn;
    BitBtnExit: TBitBtn;
    DBNavigator2: TDBNavigator;
    ButtonKhMx: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    lblDescribe: TLabel;
    lblKhType: TLabel;
    lblAgree: TLabel;
    GroupBox1: TGroupBox;
    lblMan: TLabel;
    lblCourtMan: TLabel;
    lblAdd: TLabel;
    lblZip: TLabel;
    lblTel: TLabel;
    lblFax: TLabel;
    lblEmail: TLabel;
    lblIEAdd: TLabel;
    edtMan: TEdit;
    edtCourtMan: TEdit;
    edtAdd: TEdit;
    edtZip: TEdit;
    edtTel: TEdit;
    edtFax: TEdit;
    edtEmail: TEdit;
    edtIEAdd: TEdit;
    edtDescribe: TEdit;
    edtAgree: TEdit;
    cbKhType: TComboBox;
    TabSheet2: TTabSheet;
    lblTaxNo: TLabel;
    lblCredit: TLabel;
    lblAreaCode: TLabel;
    lblHangYe: TLabel;
    lblTradeTime: TLabel;
    lblStartDate: TLabel;
    lblStopDate: TLabel;
    lblCreditDate: TLabel;
    lblLastTradeDate: TLabel;
    lblLastTradeMoney: TLabel;
    lblLastPayDate: TLabel;
    lblLastPayMoney: TLabel;
    lblBz: TLabel;
    lblBalance: TLabel;
    edtTaxNo: TEdit;
    edtCredit: TEdit;
    edtAreaCode: TEdit;
    edtHangYe: TEdit;
    edtTradeTime: TEdit;
    edtLastPayMoney: TEdit;
    dtpStartDate: TDateTimePicker;
    dtpStopDate: TDateTimePicker;
    dtpLastTradeDate: TDateTimePicker;
    dtpLastPayDate: TDateTimePicker;
    edtBz: TEdit;
    edtBalance: TEdit;
    dtpCreditDate: TDateTimePicker;
    edtLastTradeMoney: TEdit;
    procedure BitBtnExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCustomer: TfrmCustomer;

implementation

{$R *.dfm}

procedure TfrmCustomer.BitBtnExitClick(Sender: TObject);
begin
  close;
end;

procedure TfrmCustomer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

end.