billstatus.pas

来自「三层ERP系统 (SQL)」· PAS 代码 · 共 72 行

unit BillStatus;

interface                             

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_Dll, ActnList, StdCtrls, ExtCtrls, Grids, DBGridEh, Mask,
  wwdbedit, DB, DBClient, DBCtrls, DBCtrlsEh, MSNPopUp;

type
  TfrmbillStatus = class(TfrmBase_DLL)
    Panel1: TPanel;
    FormTitle: TLabel;
    Panel3: TPanel;
    btnExit: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ActionList1: TActionList;
    acSubmit: TAction;
    acCancel: TAction;
    acFinish: TAction;
    acExit: TAction;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    EditNO: TwwDBEdit;
    pnEdit: TPanel;
    Label5: TLabel;
    wwDBEdit1: TwwDBEdit;
    edtCreauser: TwwDBEdit;
    Label1: TLabel;
    edtcreadate: TwwDBEdit;
    Label2: TLabel;
    edtmodiuser: TwwDBEdit;
    Label4: TLabel;
    edtmodidate: TwwDBEdit;
    Label3: TLabel;
    plGrid: TPanel;
    Grid: TDBGridEh;
    plOther: TPanel;
    LabelSubmitUser: TLabel;
    LabelSubmitDate: TLabel;
    LabelcancelDate: TLabel;
    LabelcancelUser: TLabel;
    labelfinishuser: TLabel;
    labelfinishdate: TLabel;
    edtSubmitDate: TwwDBEdit;
    edtSubmitUser: TwwDBEdit;
    edtCancelDate: TwwDBEdit;
    edtCancelUser: TwwDBEdit;
    edtFinishUser: TwwDBEdit;
    edtFinishDate: TwwDBEdit;
    CDSMaster: TClientDataSet;
    DSMaster: TDataSource;
    CDSdetail: TClientDataSet;
    dsDetail: TDataSource;
    MSNSaveinfo: TMSNPopUp;
    LblStatus: TLabel;
    procedure acExitExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure GridDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure CDSdetailCalcFields(DataSet: TDataSet);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure acSubmitExecute(Sender: TObject);
    procedure DSMasterStateChange(Sender: TObject);
    procedure DSMasterDataChange(Sender: TObject; Field: TField);
    procedure acCancelExecute(Sender: TObject);
    procedure acFinishExecute(Sender: TObject);
  private
    procedure GetdetailData;           //