?? customerpropertyfrm.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -