billbase.pas

三层ERP系统 (SQL)

unit BillBase;

interface

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

Const
  WM_USER_GETDATA = WM_USER+1024;

type
  TfrmBillBase = class(TfrmMDIBase)
    plTitle: TPanel;
    FormTitle: TLabel;
    Panel3: TPanel;
    Button10: TButton;
    ppmreport: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    ActionList1: TActionList;
    acpview: TAction;
    acpprint: TAction;
    acpsetting: TAction;
    acpreportset: TAction;
    acpexcel: TAction;
    CDSdetail: TClientDataSet;
    dsDetail: TDataSource;
    CDSMaster: TClientDataSet;
    DSMaster: TDataSource;
    ActionListFun: TActionList;
    acNew: TAction;
    acEdit: TAction;
    acDelete: TAction;
    acLineAdd: TAction;
    acLineDelete: TAction;
    acSave: TAction;
    acCancel: TAction;
    acSearch: TAction;
    acExit: TAction;
    Label5: TLabel;
    editNO: TwwDBEdit;
    Button9: TButton;
    acBilltype: TAction;
    acFirst: TAction;
    acPrior: TAction;
    acNext: TAction;
    acLast: TAction;
    acRefresh: TAction;
    acBillSearch: TAction;
    PnlEdit: TPanel;
    PnlBrowse: TPanel;
    GridBrowse: TDBGridEh;
    Panel2: TPanel;
    Panel4: TPanel;
    btnrefresh: TButton;
    btnsearch: TButton;
    pnEdit: TPanel;
    plStandard: TPanel;
    frBaseinfo: TfrReport;
    plcalendar: TPanel;
    Label1: TLabel;
    edtCreauser: TwwDBEdit;
    Label4: TLabel;
    edtmodiuser: TwwDBEdit;
    Label3: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    EdtNO_S: TwwDBEdit;
    edtcreadate: TwwDBEdit;
    edtmodidate: TwwDBEdit;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    lblCancelInfo: TLabel;
    MSNSaveinfo: TMSNPopUp;
    pupmenubrowse: TPopupMenu;
    N10: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N17: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N16: TMenuItem;
    acBillinterface: TAction;
    N18: TMenuItem;
    N19: TMenuItem;
    acFormPrint: TAction;
    N20: TMenuItem;
    N21: TMenuItem;
    acImport: TAction;
    plGrid: TPanel;
    Grid: TDBGridEh;
    plOther: TPanel;
    LabelSubmitUser: TLabel;
    LabelSubmitDate: TLabel;
    LabelcancelDate: TLabel;
    LabelcancelUser: TLabel;
    edtSubmitDate: TwwDBEdit;
    edtSubmitUser: TwwDBEdit;
    edtCancelDate: TwwDBEdit;
    edtCancelUser: TwwDBEdit;
    plButton: TPanel;
    Panel1: TPanel;
    Button8: TButton;
    btnPrint: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button15: TButton;
    labelfinishuser: TLabel;
    labelfinishdate: TLabel;
    edtFinishUser: TwwDBEdit;
    edtFinishDate: TwwDBEdit;
    frDSMaster: TfrDBDataSet;
    frDSDetail: TfrDBDataSet;
    procedure acExitExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acBilltypeExecute(Sender: TObject);
    procedure acBillSearchExecute(Sender: TObject);
    procedure btnPrintClick(Sender: TObject);
    procedure acpviewExecute(Sender: TObject);
    procedure acpprintExecute(Sender: TObject);
    procedure acpsettingExecute(Sender: TObject);
    procedure acpreportsetExecute(Sender: TObject);
    procedure acRefreshExecute(Sender: TObject);
    procedure acFirstExecute(Sender: TObject);
    procedure acPriorExecute(Sender: TObject);
    procedure acNextExecute(Sender: TObject);
    procedure acLastExecute(Sender: TObject);
    procedure GridBrowseDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DSbaseinfoDataChange(Sender: TObject; Field: TField);
    procedure acEditExecute(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure GridDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DSMasterStateChange(Sender: TObject);
    procedure DSMasterDataChange(Sender: TObject; Field: TField);
    procedure acSaveExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure CDSMasterAfterInsert(DataSet: TDataSet);
    procedure CDSMasterBeforeCancel(DataSet: TDataSet);
    procedure CDSMasterBeforePost(DataSet: TDataSet);
    procedure GridColumns0EditButtonDown(Sender: TObject;
      TopButton: Boolean; var AutoRepeat, Handled: Boolean);
    procedure CDSdetailCalcFields(DataSet: TDataSet);
    procedure acLineAddExecute(Sender: TObject);
    procedure acLineDeleteExecute(Sender: TObject);
    procedure CDSdetailBeforePost(DataSet: TDataSet);
    procedure CDSdetailAfterInsert(DataSet: TDataSet);
    procedure CDSMasterAfterCancel(DataSet: TDataSet);
    procedure CDSMasterAfterEdit(DataSet: TDataSet);
    procedure acBillinterfaceExecute(Sender: TObject);
    procedure acDeleteExecute(Sender: TObject);
    procedure acFormPrintExecute(Sender: TObject);
    procedure acSearchExecute(Sender: TObject);
    procedure GridCellClick(Column: TColumnEh);
    procedure frBaseinfoUserFunction(const Name: String; p1, p2,
      p3: Variant; var Val: Variant);
    procedure CDSMasterAfterPost(DataSet: TDataSet);
  private
    FormStatus:String;       //