?? vendor_unit.pas
字號:
unit Vendor_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls,
ToolWin, ComCtrls;
type
TfrmVendor = class(TForm)
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Label4: TLabel;
Label9: TLabel;
Label3: TLabel;
edtVendorID: TDBEdit;
edtVendorName: TDBEdit;
edtHandset: TDBEdit;
edtLinkman: TDBEdit;
edtVendorSpell: TDBEdit;
edtRemark: TDBEdit;
dbGrdVendorInfo: TDBGrid;
Label6: TLabel;
Label7: TLabel;
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;
sbtnCancel: TSpeedButton;
procedure btnNextClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure edtVendorIDKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure edtVendorNameKeyPress(Sender: TObject; var Key: Char);
procedure edtVendorSpellKeyPress(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 sbtnFirstClick(Sender: TObject);
procedure sbtnPriorClick(Sender: TObject);
procedure sbtnLastClick(Sender: TObject);
procedure sbtnAddClick(Sender: TObject);
procedure sbtnSaveClick(Sender: TObject);
procedure sbtnDeleteClick(Sender: TObject);
procedure sbtnCancelClick(Sender: TObject);
procedure sbtnExitClick(Sender: TObject);
private
InNo:string; //類型編號
public
{ Public declarations }
end;
var
frmVendor: TfrmVendor;
implementation
uses DM_Unit;
{$R *.dfm}
procedure TfrmVendor.btnNextClick(Sender: TObject);
begin
DM.DataSetNext(DM.sdsVerdor);
end;
procedure TfrmVendor.btnCancelClick(Sender: TObject);
begin
DM.DataSetCancel(DM.sdsVerdor);
end;
procedure TfrmVendor.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.sdsVerdor.Close;
Action:=caFree;
frmVendor:=nil;
end;
procedure TfrmVendor.FormCreate(Sender: TObject);
begin
DM.sdsVerdor.Open;
end;
procedure TfrmVendor.edtVendorIDKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then
begin
if trim(edtVendorID.text)='' then
begin
DM.OfferTypeID('select VendorID from WMS_Vendor where VendorID like ''GYS%'' ',InNo);
edtVendorID.Text:='GYS00'+InNo;
edtVendorName.SetFocus;
end
else
begin
edtVendorName.SetFocus;
end;
end;
end;
procedure TfrmVendor.edtVendorNameKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
edtVendorSpell.SetFocus;
end;
procedure TfrmVendor.edtVendorSpellKeyPress(Sender: TObject;
var Key: Char);
begin
if key = #13 then
edtLinkman.SetFocus;
end;
procedure TfrmVendor.edtLinkmanKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtHandset.SetFocus;
end;
procedure TfrmVendor.edtHandsetKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtTel.SetFocus;
end;
procedure TfrmVendor.edtTelKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtFax.SetFocus;
end;
procedure TfrmVendor.edtFaxKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
edtRemark.SetFocus;
end;
procedure TfrmVendor.sbtnFirstClick(Sender: TObject);
begin
DM.DataSetFirst(DM.sdsVerdor);
end;
procedure TfrmVendor.sbtnPriorClick(Sender: TObject);
begin
DM.DataSetPrior(DM.sdsVerdor);
end;
procedure TfrmVendor.sbtnLastClick(Sender: TObject);
begin
DM.DataSetLast(DM.sdsVerdor);
end;
procedure TfrmVendor.sbtnAddClick(Sender: TObject);
begin
DM.DataSetInsert(DM.sdsVerdor);
edtVendorID.SetFocus;
end;
procedure TfrmVendor.sbtnSaveClick(Sender: TObject);
begin
DM.DataSetSave(DM.sdsVerdor);
end;
procedure TfrmVendor.sbtnDeleteClick(Sender: TObject);
begin
DM.DataSetDelete(DM.sdsVerdor);
end;
procedure TfrmVendor.sbtnCancelClick(Sender: TObject);
begin
DM.DataSetCancel(DM.sdsVerdor);
end;
procedure TfrmVendor.sbtnExitClick(Sender: TObject);
begin
Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -