mdcontract.pas

三层ERP系统 (SQL)

unit MDContract;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BillBase, FR_DSet, FR_DBSet, FR_Class, DB, DBClient, ActnList,
  Menus, Grids, DBGridEh, StdCtrls, Mask, wwdbedit, ExtCtrls, DBCtrls,
  Buttons, DBCtrlsEh, wwDialog, wwidlg, ADODB, MSNPopUp;

type
  TfrmContract = class(TfrmBillBase)
    Label7: TLabel;
    wwDBEdit4: TwwDBEdit;
    btncustomer: TSpeedButton;
    wwDBEdit5: TwwDBEdit;
    Label8: TLabel;
    wwDBEdit6: TwwDBEdit;
    Label21: TLabel;
    wwDBEdit13: TwwDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    wwDBEdit8: TwwDBEdit;
    Label13: TLabel;
    wwDBEdit9: TwwDBEdit;
    DBMemo1: TDBMemo;
    Label14: TLabel;
    Label15: TLabel;
    wwDBEdit10: TwwDBEdit;
    Label16: TLabel;
    wwDBEdit11: TwwDBEdit;
    DBMemo3: TDBMemo;
    Label18: TLabel;
    Label19: TLabel;
    Label17: TLabel;
    DBMemo2: TDBMemo;
    Label11: TLabel;
    DBMemo4: TDBMemo;
    Label20: TLabel;
    DBMemo5: TDBMemo;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    CDSCustomer: TClientDataSet;
    CDSCustomerfID: TAutoIncField;
    CDSCustomerfCode: TWideStringField;
    CDSCustomerfName: TWideStringField;
    CDSCustomerfFullName: TWideStringField;
    CDSCustomerfAreaCode: TWideStringField;
    CDSCustomerfTypeCode: TWideStringField;
    CDSCustomerfAddress: TWideStringField;
    CDSCustomerfPostCode: TWideStringField;
    CDSCustomerfTel: TWideStringField;
    CDSCustomerfFax: TWideStringField;
    CDSCustomerfRelation: TWideStringField;
    CDSCustomerfMobilePhone: TWideStringField;
    CDSCustomerfPosition: TWideStringField;
    CDSCustomerfEmail: TWideStringField;
    CDSCustomerfTaxAccount: TWideStringField;
    CDSCustomerfBank: TWideStringField;
    CDSCustomerfBankAccount: TWideStringField;
    CDSCustomerfOriginSum: TBCDField;
    CDSCustomerfRemain: TBCDField;
    CDSCustomerfMaxPaySum: TBCDField;
    CDSCustomerfMaxRemain: TBCDField;
    CDSCustomerfRate: TBCDField;
    CDSCustomerfBeginDate: TDateTimeField;
    CDSCustomerfHomePage: TWideStringField;
    CDSCustomerfEnglishName: TWideStringField;
    CDSCustomerfNotes: TWideStringField;
    wwLookupDlg: TwwLookupDialog;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btncustomerClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CDSMasterBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmContract: TfrmContract;

implementation

uses DataProcess, LookupContract;

{$R *.dfm}

procedure TfrmContract.FormCreate(Sender: TObject);
begin
  inherited;
    FormCaption:='