?? realtyf52a.pas
字號(hào):
unit RealtyF52A;
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_RealtyF52A = class(TForm)
L1: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Button1: TButton;
edit3: TDateTimePicker;
GroupBox1: TGroupBox;
Label10: TLabel;
edit11: TEdit;
edit12: TEdit;
Label11: TLabel;
edit13: TEdit;
Label12: TLabel;
Label13: TLabel;
edit14: TEdit;
Label14: TLabel;
edit15: TEdit;
Label15: TLabel;
edit16: TEdit;
Label16: TLabel;
edit17: TMemo;
Label17: TLabel;
Button2: TButton;
CheckBox1: TCheckBox;
Label5: TLabel;
edit5: TMemo;
edit18: TMemo;
Edit4: TEdit;
edit2: TComboBox;
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 edit2Select(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
T:string;
end;
var
f_RealtyF52A: Tf_RealtyF52A;
sNum:string;
implementation
uses data, main,Car4s931,RealtyF52,RealtyL23,RealtyF51;
{$R *.dfm}
procedure Tf_RealtyF52A.FormCreate(Sender: TObject);
var
i:integer;
query,query1:TADOQuery;
s:string;
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
edit2.Items.Add('新增驗(yàn)收項(xiàng)目');
query.SQL.Add('select * from 輔助資料 where 類別='''+'驗(yàn)收項(xiàng)目'+'''');
query.Open;
while not query.Eof do
begin
edit2.Items.Add(query.fieldbyname('名稱').Value);
query.Next;
end;
if f_RealtyF52.bNew=true then
begin
edit3.Date:=date;
checkbox1.Checked:=false;
end
else
begin
query.SQL.Clear;
query.SQL.Add('select * from 裝修驗(yàn)收 where 申請(qǐng)單號(hào)='''+f_RealtyF52.listview1.selected.SubItems[4]+'''');
query.Open;
if query.RecordCount>0 then
begin
edit1.Text:=query.fieldbyname('申請(qǐng)單號(hào)').Value;
edit2.ItemIndex:=edit2.Items.IndexOf(query.fieldbyname('驗(yàn)收項(xiàng)目').Value);
edit3.date:=strtodate(query.fieldbyname('驗(yàn)收日期').Value);
edit4.text:=query.fieldbyname('驗(yàn)收人').Value;
edit5.text:=query.fieldbyname('驗(yàn)收說明').Value;
if query.fieldbyname('驗(yàn)收通過').Value='Y' then checkbox1.Checked:=true
else checkbox1.Checked:=false;
query1.SQL.Clear;
query1.SQL.Add('select * from 裝修申請(qǐng) where 單號(hào) ='''+query.fieldbyname('申請(qǐng)單號(hào)').Value+'''') ;
query1.Open;
if query1.RecordCount>0 then
begin
s:=mainform.getName('房間',query1.fieldbyname('房間').Value);
edit11.Text:=query1.fieldbyname('房間').Value+'--'+s;
edit12.Text:=query1.fieldbyname('客戶').Value;
edit13.Text:=query1.fieldbyname('裝修開始時(shí)間').Value;
edit14.Text:=query1.fieldbyname('審核時(shí)間').Value;
edit15.Text:=query1.fieldbyname('施工負(fù)責(zé)人').Value;
edit16.Text:=query1.fieldbyname('聯(lián)系電話').Value;
edit17.Text:=query1.fieldbyname('裝修項(xiàng)目').Value;
edit18.Text:=query1.fieldbyname('審核意見').Value;
end;
end;
query.close;
query.free;
query1.close;
query1.free;
end;
end;
//Tab
procedure Tf_RealtyF52A.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_RealtyF52A.Button2Click(Sender: TObject);
begin
f_RealtyL23:=Tf_RealtyL23.Create(self);
f_RealtyL23.Button2.Visible:=true;
f_RealtyL23.ShowModal;
if f_RealtyL23.bOk=true then
begin
edit4.Text:=f_RealtyL23.sName;
end;
end;
procedure Tf_RealtyF52A.ToolButton10Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyF52A.Button1Click(Sender: TObject);
VAR
query:TADOQuery;
s:string;
begin
f_RealtyF51:=Tf_RealtyF51.Create(self);
f_RealtyF51.Button8.Visible:=true;
f_RealtyF51.edit5.Text:='已審核';
f_RealtyF51.edit5.Enabled:=false;
f_RealtyF51.ShowModal;
if f_RealtyF51.bOk=true then
begin
edit1.Text:=f_RealtyF51.sNum;
end;
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
query.SQL.Add('select * from 裝修申請(qǐng) where 單號(hào)='''+edit1.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
s:=mainform.getName('房間',query.fieldbyname('房間').Value);
edit11.Text:=query.fieldbyname('房間').Value+'--'+s;
edit12.Text:=query.fieldbyname('客戶').Value;
edit13.Text:=query.fieldbyname('裝修開始時(shí)間').Value;
edit14.Text:=query.fieldbyname('審核時(shí)間').Value;
edit15.Text:=query.fieldbyname('施工負(fù)責(zé)人').Value;
edit16.Text:=query.fieldbyname('聯(lián)系電話').Value;
edit17.Text:=query.fieldbyname('裝修項(xiàng)目').Value;
edit18.Text:=query.fieldbyname('審核意見').Value;
end;
end;
procedure Tf_RealtyF52A.Button7Click(Sender: TObject);
VAR
query,query1,query2,query3:TADOQuery;
s,s1,s2,s3,s4,s5:string;
begin
s4:='N';
if checkbox1.Checked=true then s4:='Y';
if Edit1.Text='' then
begin
showmessage('請(qǐng)選擇單號(hào)。');
Edit1.SetFocus;
exit;
end;
if Edit2.Text='' then
begin
showmessage('請(qǐng)選擇驗(yàn)收項(xiàng)目。');
Edit2.SetFocus;
exit;
end;
if Edit4.Text='' then
begin
showmessage('請(qǐng)?zhí)顚戲?yàn)收人。');
Edit4.SetFocus;
exit;
end;
if edit5.text='' then edit5.Text:='-';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
Query2:=TADOQuery.Create(nil);
Query2.Connection:=DataModuleADO.ADOConnection1;
Query3:=TADOQuery.Create(nil);
Query3.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyF52.bNew=true then
begin
s := 'insert into 裝修驗(yàn)收(申請(qǐng)單號(hào),驗(yàn)收項(xiàng)目,驗(yàn)收日期,驗(yàn)收人,驗(yàn)收說明,驗(yàn)收通過,審核) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7)';
query.sql.Clear ;
query.sql.add(s);
query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
query.Parameters.ParamByName('s2').Value:=trim(Edit2.Text);
query.Parameters.ParamByName('s3').Value:=datetostr(Edit3.date);
query.Parameters.ParamByName('s4').Value:=trim(Edit4.Text);
query.Parameters.ParamByName('s5').Value:=trim(Edit5.TEXT);
query.Parameters.ParamByName('s6').Value:=S4;
query.Parameters.ParamByName('s7').Value:='N';
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
showmessage('保存成功。');
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -