customerpropertyfrm.pas

来自「供水营销打印程序源码」· PAS 代码 · 共 110 行

unit CustomerPropertyFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SJDBCustomPropertyFrm, cxLookAndFeelPainters, DB, PropStorageEh,
  StdCtrls, cxButtons, ExtCtrls, ComCtrls, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxMaskEdit, cxButtonEdit, cxDBEdit, cxHyperLinkEdit,
  cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
  cxCheckBox, cxSpinEdit;

type
  TfrmPropertyCustomer = class(TSJDBCustomPropertyForm)
    PageControl: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    edtCustID: TcxDBButtonEdit;
    Label2: TLabel;
    edtName: TcxDBMaskEdit;
    Label3: TLabel;
    edtContract: TcxDBMaskEdit;
    Label4: TLabel;
    edtPhone: TcxDBMaskEdit;
    Label5: TLabel;
    edtEmail: TcxDBHyperLinkEdit;
    Label6: TLabel;
    edtAddress: TcxDBTextEdit;
    Label7: TLabel;
    edtDescription: TcxDBTextEdit;
    Label8: TLabel;
    edtTownID: TcxDBLookupComboBox;
    Label9: TLabel;
    edtAreaID: TcxDBLookupComboBox;
    Label10: TLabel;
    edtBookID: TcxDBLookupComboBox;
    Label11: TLabel;
    edtPayID: TcxDBLookupComboBox;
    Label12: TLabel;
    edtUsingID: TcxDBLookupComboBox;
    Label13: TLabel;
    chkSewageflag: TcxDBCheckBox;
    cxDBSpinEdit1: TcxDBSpinEdit;
    Label14: TLabel;
    edtDegreebuf: TcxDBMaskEdit;
    Label15: TLabel;
    edtCurrQty: TcxDBMaskEdit;
    Label16: TLabel;
    edtPriorQty: TcxDBMaskEdit;
    Label17: TLabel;
    edtDerate: TcxDBMaskEdit;
    Label18: TLabel;
    Label19: TLabel;
    edtCopier: TcxDBLookupComboBox;
    Bevel2: TBevel;
    chkLogoutflag: TcxDBCheckBox;
    edtQty: TcxDBMaskEdit;
    procedure btnOKClick(Sender: TObject);
    procedure chkLogoutflagPropertiesEditValueChanged(Sender: TObject);
    procedure edtCustIDPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPropertyCustomer: TfrmPropertyCustomer;

implementation

uses InvPrintDM, MainFrm, SJInvPrintGlobal;

{$R *.dfm}

procedure TfrmPropertyCustomer.btnOKClick(Sender: TObject);
begin
  inherited;
  with dasProperty.DataSet do
  begin
    FieldByName('Modifier').Value   := GUserID;
    FieldByName('Modifydate').Value := Date;
  end;
  ModalResult := mrOK;
end;

procedure TfrmPropertyCustomer.chkLogoutflagPropertiesEditValueChanged(
  Sender: TObject);
begin
  inherited;
  if chkLogoutflag.Checked then
    dasProperty.DataSet.FieldByName('Logoutdate').Value := Date;
end;

procedure TfrmPropertyCustomer.edtCustIDPropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  inherited;
  if NewRecord then
    dasProperty.DataSet.FieldByName('CustID').Value := dmInvPrint.GetMaxCustID;
end;

end.