?? clientadvanceunit.~pas
字號:
unit ClientAdvanceUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, Mask, Buttons, Grids, DBGrids, ExtCtrls,
ToolWin, ComCtrls;
type
TClientAdvanceForm = class(TForm)
ToolBar1: TToolBar;
btadd: TBitBtn;
btok: TBitBtn;
Btdel: TBitBtn;
btno1: TBitBtn;
Panel3: TPanel;
DBGrid1: TDBGrid;
Panel2: TPanel;
Label6: TLabel;
Label8: TLabel;
Label1: TLabel;
Label3: TLabel;
Label5: TLabel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Label2: TLabel;
TS_ID: TDBEdit;
TS_User: TDBEdit;
User_ID: TDBEdit;
TS_date: TDBEdit;
DBMemo1: TDBMemo;
DBEdit1: TDBEdit;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure btaddClick(Sender: TObject);
procedure btokClick(Sender: TObject);
procedure BtdelClick(Sender: TObject);
procedure btno1Click(Sender: TObject);
procedure User_IDChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ClientAdvanceForm: TClientAdvanceForm;
implementation
uses udm, SelectDataUnit, dateUnit;
{$R *.dfm}
procedure TClientAdvanceForm.SpeedButton2Click(Sender: TObject);
begin
Application.CreateForm(TdateForm, dateForm);
if (dateForm.ShowModal = mrOk) then
begin
TS_Date.Text := '';
TS_Date.Text := DateTimeToStr(dateForm.date1.date);
end;
dateForm.Free;
end;
procedure TClientAdvanceForm.SpeedButton3Click(Sender: TObject);
begin
Application.CreateForm(TSelectDataForm, SelectDataForm);
SelectDataForm.Caption := '請選擇住戶編號';
with SelectDataForm.DBLookupComboBox1 do
begin
with adodm.search3 do
begin
Close;
CommandText := 'SELECT 住戶編號 FROM clientTable';
open;
end;
ListSource := adodm.dssearch3;
KeyField := '住戶編號';
if adodm.search3.RecordCount > 0 then ListFieldIndex := 0;
end;
if SelectDataForm.ShowModal = mrOk then
User_ID.Text := SelectDataForm.DBLookupComboBox1.Text;
end;
procedure TClientAdvanceForm.btaddClick(Sender: TObject);
begin
try
adodm.ClientAdvance.Append;
except
showmessage('添加數(shù)據(jù)產(chǎn)生錯誤');
end;
end;
procedure TClientAdvanceForm.btokClick(Sender: TObject);
begin
try
adodm.ClientAdvance.Post;
except
showmessage('添加數(shù)據(jù)產(chǎn)生錯誤');
end;
end;
procedure TClientAdvanceForm.BtdelClick(Sender: TObject);
begin
if MessageDlg('您確定要刪除錄入的數(shù)據(jù)嗎?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
try
adodm.ClientAdvance.Delete;
except
showmessage('刪除數(shù)據(jù)產(chǎn)生錯誤');
end;
end;
end;
procedure TClientAdvanceForm.btno1Click(Sender: TObject);
begin
try
adodm.ClientAdvance.Cancel;
close;
except
showmessage('錯誤產(chǎn)生,請聯(lián)系我們');
end;
end;
procedure TClientAdvanceForm.User_IDChange(Sender: TObject);
begin
with adodm.search2 do
begin
Close;
CommandText := 'SELECT 住戶名稱 FROM ClientTable where 住戶編號=:住戶編號';
Parameters.ParamByName('住戶編號').Value := User_ID.Text;
open;
end;
TS_User.DataSource := adodm.dssearch2;
TS_User.DataField := '住戶名稱';
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -