?? realtyf51ad.pas
字號:
unit RealtyF51AD;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math, Menus, ImgList, ToolWin;
type
Tf_RealtyF51AD = class(TForm)
L1: TLabel;
L2: TLabel;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
edit3: TDateTimePicker;
button1: TButton;
Button7: TButton;
Button5: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
T:string;
end;
var
f_RealtyF51AD: Tf_RealtyF51AD;
sNum:string;
implementation
uses data, main,RealtyF51A,realtyC21;
{$R *.dfm}
procedure Tf_RealtyF51AD.FormCreate(Sender: TObject);
begin
if f_RealtyF51A.bnew=true then
begin
edit3.date:=date;
end;
if f_RealtyF51A.bnew=false then
begin
edit1.Text:=f_RealtyF51A.ListView1.Selected.Caption;
edit3.date:=strtodate(f_RealtyF51A.ListView1.Selected.SubItems[1]);
edit2.Text:=f_RealtyF51A.ListView1.Selected.SubItems[0];
end;
end;
//Tab
procedure Tf_RealtyF51AD.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;
procedure Tf_RealtyF51AD.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyF51AD.ToolButton10Click(Sender: TObject);
begin
close;
end;
//新增
procedure Tf_RealtyF51AD.button1Click(Sender: TObject);
begin
f_realtyC21:=Tf_realtyC21.Create(self);
f_realtyC21.ToolButton1.Visible:=true;
f_realtyC21.ShowModal;
if f_realtyC21.bOk=true then
begin
edit1.text:=f_realtyC21.snum;
end;
end;
procedure Tf_RealtyF51AD.Button7Click(Sender: TObject);
var
s1:string;
begin
edit2.Text:=mainform.StdDou2(edit2.Text);
if f_RealtyF51A.bnew=true then
begin
with f_RealtyF51A.ListView1.Items.Add do
begin
caption:=edit1.Text;
subitems.Add(edit2.Text);
subitems.Add(datetostr(Edit3.date));
end;
if f_RealtyF51A.listview1.Items.Count>0 then f_RealtyF51A.listview1.Items.Item[0].Selected:=true;
edit1.Text:='';
edit3.date:=date;
edit2.Text:='';
end;
if f_RealtyF51A.bnew=false then
begin
with f_RealtyF51A.ListView1.Selected do
begin
caption:=edit1.Text;
subitems[0]:=edit2.Text;
subitems[1]:=datetostr(Edit3.date);
end;
end;
end;
procedure Tf_RealtyF51AD.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyF51AD.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -