?? realtyh41ab.pas
字號:
unit RealtyH41AB;
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_RealtyH41AB = class(TForm)
Label4: TLabel;
Label5: TLabel;
Button5: TButton;
Button7: TButton;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
edit2: TMemo;
edit3: TMemo;
Label2: TLabel;
DateTimePicker1: TDateTimePicker;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bMod:bool;
sTable:string;
cols:integer;
end;
var
f_RealtyH41AB: Tf_RealtyH41AB;
implementation
uses data, main,RealtyH41A,RealtyL23,RealtyC42;
{$R *.dfm}
//Initial******************************
procedure Tf_RealtyH41AB.FormCreate(Sender: TObject);
Var
query,query1:TADOQuery;
s1:string;
begin
datetimepicker1.Date:=date;
if f_RealtyH41A.bNew=false then
begin
with f_RealtyH41A.ListView2.Selected do
begin
edit1.Text:=Caption;
edit2.text:=subitems[0];
edit3.text:=subitems[1];
datetimepicker1.Date:=strtodate(subitems[2]);
end;
end;
end;
//Tab****************************************
procedure Tf_RealtyH41AB.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_RealtyH41AB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
//Close*************************************
procedure Tf_RealtyH41AB.ToolButton10Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyH41AB.Button7Click(Sender: TObject);
Var
query,query1:TADOQuery;
s,s1:string;
i,j:integer;
begin
if edit1.Text='' then
begin
showmessage('檢查人不能為空!');
edit1.SetFocus;
exit;
end;
if f_RealtyH41A.bNew=false then
begin
with f_RealtyH41A.ListView2.selected do
begin
Caption:=edit1.Text;
SubItems[0]:=edit2.text;
SubItems[1]:=edit3.text;
SubItems[2]:=datetostr(datetimepicker1.date);
end;
close;
end
else
begin
with f_RealtyH41A.ListView2.Items.Add do
begin
Caption:=edit1.Text;
SubItems.Add(edit2.text);
SubItems.Add(edit3.text);
SubItems.Add(datetostr(datetimepicker1.date));
end;
if f_RealtyH41A.ListView2.Items.Count>0 then f_RealtyH41A.ListView2.Items.Item[0].Selected:=true;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
datetimepicker1.Date:=date;
end;
end;
procedure Tf_RealtyH41AB.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyH41AB.Button1Click(Sender: TObject);
begin
f_RealtyL23:=Tf_RealtyL23.Create(self);
f_RealtyL23.Button2.Visible:=true;
f_RealtyL23.ShowModal;
if f_RealtyL23.bOk=true then
begin
edit1.Text:=f_RealtyL23.sName;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -