?? customer_unit.pas
字號:
unit Customer_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls,
ToolWin, ComCtrls,DB;
type
TfrmCustomer = class(TForm)
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Label4: TLabel;
Label9: TLabel;
Label3: TLabel;
Label6: TLabel;
Label7: TLabel;
dbGrdCustomerInfo: TDBGrid;
edtCustomerID: TDBEdit;
edtCustomerName: TDBEdit;
edtCustomerSpell: TDBEdit;
edtHandset: TDBEdit;
edtRemark: TDBEdit;
edtLinkman: TDBEdit;
edtFax: TDBEdit;
edtTel: TDBEdit;
ControlBar1: TControlBar;
CoolBar2: TCoolBar;
sbtnFirst: TSpeedButton;
sbtnPrior: TSpeedButton;
sbtnNext: TSpeedButton;
sbtnLast: TSpeedButton;
CoolBar3: TCoolBar;
sbtnAdd: TSpeedButton;
sbtnSave: TSpeedButton;
Bevel1: TBevel;
sbtnExit: TSpeedButton;
sbtnDelete: TSpeedButton;
SpeedButton1: TSpeedButton;
procedure edtCustomerIDKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure edtCustomerNameKeyPress(Sender: TObject; var Key: Char);
procedure edtCustomerSpellKeyPress(Sender: TObject; var Key: Char);
procedure edtLinkmanKeyPress(Sender: TObject; var Key: Char);
procedure edtHandsetKeyPress(Sender: TObject; var Key: Char);
procedure edtTelKeyPress(Sender: TObject; var Key: Char);
procedure edtFaxKeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure sbtnFirstClick(Sender: TObject);
procedure sbtnPriorClick(Sender: TObject);
procedure sbtnNextClick(Sender: TObject);
procedure sbtnLastClick(Sender: TObject);
procedure sbtnAddClick(Sender: TObject);
procedure sbtnSaveClick(Sender: TObject);
procedure sbtnDeleteClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure sbtnExitClick(Sender: TObject);
private
InNo:string; //類型編號
public
{ Public declarations }
end;
var
frmCustomer: TfrmCustomer;
implementation
uses DM_Unit, Vendor_Unit;
{$R *.dfm}
procedure TfrmCustomer.edtCustomerIDKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if key=VK_RETURN then
begin
if trim(edtCustomerID.text)='' then
begin
if DM.sdsCustomer.State <> dsInsert then
DM.DataSetInsert(DM.sdsCustomer);
DM.OfferTypeID('select CustomerID from WMS_Customer where CustomerID like'+#39+'RK'+formatdatetime('yyyymmdd',now)+'%'+#39,InNo);
edtCustomerID.text:='RK'+formatdatetime('yyyymmdd',now)+'000'+InNo;
edtCustomerName.setfocus;
end
else
begin
edtCustomerName.setfocus;
end;
end;
end;
procedure TfrmCustomer.edtCustomerNameKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
edtCustomerSpell.SetFocus;
end;
procedure TfrmCustomer.edtCustomerSpellKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
edtLinkman.SetFocus;
end;
procedure TfrmCustomer.edtLinkmanKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtHandset.SetFocus;
end;
procedure TfrmCustomer.edtHandsetKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtTel.SetFocus;
end;
procedure TfrmCustomer.edtTelKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtFax.SetFocus;
end;
procedure TfrmCustomer.edtFaxKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtRemark.SetFocus;
end;
procedure TfrmCustomer.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DM.sdsCustomer.Close;
Action:=caFree;
frmVendor:=nil;
end;
procedure TfrmCustomer.FormCreate(Sender: TObject);
begin
DM.sdsCustomer.Open;
end;
procedure TfrmCustomer.sbtnFirstClick(Sender: TObject);
begin
DM.DataSetFirst(DM.sdsCustomer);
end;
procedure TfrmCustomer.sbtnPriorClick(Sender: TObject);
begin
DM.DataSetPrior(DM.sdsCustomer);
end;
procedure TfrmCustomer.sbtnNextClick(Sender: TObject);
begin
DM.DataSetNext(DM.sdsCustomer);
end;
procedure TfrmCustomer.sbtnLastClick(Sender: TObject);
begin
DM.DataSetLast(DM.sdsCustomer);
end;
procedure TfrmCustomer.sbtnAddClick(Sender: TObject);
begin
DM.DataSetInsert(DM.sdsCustomer);
edtCustomerID.SetFocus;
end;
procedure TfrmCustomer.sbtnSaveClick(Sender: TObject);
begin
DM.DataSetSave(DM.sdsCustomer);
end;
procedure TfrmCustomer.sbtnDeleteClick(Sender: TObject);
begin
DM.DataSetDelete(DM.sdsCustomer);
end;
procedure TfrmCustomer.SpeedButton1Click(Sender: TObject);
begin
DM.DataSetCancel(DM.sdsCustomer);
end;
procedure TfrmCustomer.sbtnExitClick(Sender: TObject);
begin
Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -