?? realtyh31.pas
字號:
unit RealtyH31;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math, ToolWin, ImgList, Menus;
type
Tf_RealtyH31 = class(TForm)
Button5: TButton;
Button7: TButton;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure GetID;
procedure FormCreate(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bMod:bool;
sTable:string;
cols:integer;
end;
var
f_RealtyH31: Tf_RealtyH31;
implementation
uses data, main,RealtyH41A,RealtyA14,RealtyC42;
{$R *.dfm}
//Initial******************************
procedure Tf_RealtyH31.FormCreate(Sender: TObject);
begin
getid;
end;
//Tab****************************************
procedure Tf_RealtyH31.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
Begin
key:=0;
perform(WM_NEXTDLGCTL,0,0);
end
else if key=VK_ESCAPE then close;
end;
//FreeForm**********************************
procedure Tf_RealtyH31.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
//Close*************************************
procedure Tf_RealtyH31.ToolButton10Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyH31.Button7Click(Sender: TObject);
Var
query:TADOQuery;
s,s1:string;
i,j:integer;
begin
if edit1.Text='' then
begin
showmessage('編號不能為空!');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
showmessage('名稱不能為空!');
edit2.SetFocus;
exit;
end;
if edit3.Text='' then edit3.Text:='';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
query.SQL.Add('select * from 保潔項目 where 名稱='''+edit2.Text+'''');
query.Open;
if query.Recordcount>0 then
begin
showmessage('名稱重復');
query.Close;
query.free;
exit;
end;
s:='insert into 保潔項目(編號,名稱,保潔要求) values(:s1,:s2,:s3)';
query.sql.Clear ;
query.sql.add(s);
query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
query.Parameters.ParamByName('s2').Value:=Edit2.text;
query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
showmessage('保存成功');
getid;
edit2.text:='';
edit3.text:='';
end;
procedure Tf_RealtyH31.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyH31.getId;
var
i:integer;
query:TADOQuery;
s:string;
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
s := 'select top 1 * from 保潔項目 ORDER BY 編號 DESC';
Query.SQL.Add(s);
Query.Open ;
if query.recordcount > 0 then
begin
s:= Query.Fieldbyname('編號').AsString;
s:= Copy(S, 1, 7);
i:= strtoint(s)+1;
if i<10 then edit1.text := '000000'+inttostr(i)
else if (i > 9) and (i<100) then edit1.text := '00000'+inttostr(i)
else if (i > 99) and (i<1000) then edit1.text := '0000'+inttostr(i)
else if (i > 999) and (i<10000) then edit1.text := '000'+inttostr(i)
else if (i > 9999) and (i<100000) then edit1.text := '00'+inttostr(i)
else if (i > 99999) and (i<1000000) then edit1.text := '0'+inttostr(i)
else if i>999999 then edit1.text := inttostr(i);
end
else edit1.text := '0000001';
query.Close;
query.Free;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -