?? realtya321e.pas
字號:
unit RealtyA321E;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
StrUtils, ExtDlgs, ComCtrls, math;
type
Tf_RealtyA321E = class(TForm)
Button2: TButton;
Label2: TLabel;
Button1: TButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DateTimePicker1: TDateTimePicker;
edit1: TComboBox;
Label9: TLabel;
Edit7: TEdit;
Button3: TButton;
Edit2: TComboBox;
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit2Select(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
end;
var
f_RealtyA321E: Tf_RealtyA321E;
implementation
uses data, main,RealtyA32E,RealtyA11,RealtyA12,RealtyA13,RealtyA14,RealtyA15,Car4s931;
{$R *.dfm}
//初始化
procedure Tf_RealtyA321E.FormCreate(Sender: TObject);
var
query:TADOQuery;
s,s1:string;
begin
DateTimepicker1.Date:=date;
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
edit2.Items.Add('新增驗收結果');
query.SQL.Clear;
query.SQL.Add('select * from 輔助資料 where 類別='''+'驗收結果'+'''');
query.Open;
while not query.Eof do
begin
edit2.Items.Add(query.fieldbyname('名稱').Value);
query.Next;
end;
query.SQL.Clear;
query.SQL.Add('select * from 房產驗收項目 where 類別='''+'車位驗收項目'+'''');
query.Open;
while not query.Eof do
begin
edit1.Items.Add(query.fieldbyname('名稱').value);
query.Next;
end;
if f_RealtyA32E.bMod=true then
begin
s1:='車位';
s:='select * from 房產驗收 where 所屬單位='''+f_RealtyA32E.listview1.Selected.Subitems[10];
s:=s+''' and 類別='''+s1;
s:=s+''' and 審核='''+'Y';
s:=s+''' and 驗收項目='''+f_RealtyA32E.listview1.Selected.Subitems[3]+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then Button1.Enabled:=false;
s1:=f_RealtyA32E.ListView1.Selected.SubItems[10]+'--'+f_RealtyA32E.ListView1.Selected.Caption;
edit7.text:=s1;
edit1.ItemIndex:=Edit1.Items.IndexOf(f_RealtyA32E.ListView1.Selected.SubItems[3]);
edit2.ItemIndex:=Edit2.Items.IndexOf(f_RealtyA32E.ListView1.Selected.SubItems[4]);
DateTimePicker1.Date:=strtodate(f_RealtyA32E.ListView1.Selected.SubItems[5]);
edit3.Text:=f_RealtyA32E.ListView1.Selected.SubItems[6];
edit4.Text:=f_RealtyA32E.ListView1.Selected.SubItems[7];
edit5.Text:=f_RealtyA32E.ListView1.Selected.SubItems[8];
edit6.Text:=f_RealtyA32E.ListView1.Selected.SubItems[9];
end;
end;
//Tab
procedure Tf_RealtyA321E.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_RealtyA321E.Button2Click(Sender: TObject);
begin
close;
end;
//確定
procedure Tf_RealtyA321E.Button1Click(Sender: TObject);
Var
query:TADOQuery;
s,s1,s2,s3,s4,s5,s6,s7,r1,r2,r3:string;
begin
s1:='車位';
if edit1.Text='' then
begin
showmessage('驗收項目不能為空');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
showmessage('驗收結果不能為空');
edit2.SetFocus;
exit;
end;
if Edit7.Text='' then
begin
showmessage(s1+'不能為空');
edit7.SetFocus;
exit;
end
else s3:=mainform.getNum(Edit7.Text);
s4:=mainform.getLastName(Edit7.Text);
if edit2.Text='' then edit2.Text:='-';
if edit3.Text='' then edit3.Text:='-';
if edit4.Text='' then edit4.Text:='-';
if edit5.Text='' then edit5.Text:='-';
if edit6.Text='' then edit6.Text:='-';
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
s5:='-';
query.SQL.Add('select * from 車位 where 編號='''+s3+'''');
query.Open;
if query.RecordCount>0 then
begin
s5:=query.fieldbyname('管理處').Value;
s5:=mainform.getName('組織機構',s5);
s6:=query.fieldbyname('管理區').Value;
s6:=mainform.getName('管理區',s6);
s7:=query.fieldbyname('停車場').Value;
s7:=mainform.getName('停車場',s7);
end;
if f_RealtyA32E.bMod=false then
begin
query.SQL.Clear;
query.SQL.Add('select * from 房產驗收 where 類別='''+s1+''' and 所屬單位='''+s3+''' and 驗收項目='''+edit1.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
showmessage('驗收項目重復');
edit1.SetFocus;
exit;
end;
s:='insert into 房產驗收 (驗收項目,驗收結果,驗收日期,負責人,驗收人,驗收說明,備注,類別,所屬單位,審核)';
s:=s+'values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:=edit2.Text;
query.Parameters.ParamByName('s3').Value:=datetostr(datetimepicker1.Date);
query.Parameters.ParamByName('s4').Value:=edit3.Text;
query.Parameters.ParamByName('s5').Value:=edit4.Text;
query.Parameters.ParamByName('s6').Value:=edit5.Text;
query.Parameters.ParamByName('s7').Value:=edit6.Text;
query.Parameters.ParamByName('s8').Value:=s1;
query.Parameters.ParamByName('s9').Value:=s3;
query.Parameters.ParamByName('s10').Value:='N';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
with f_RealtyA32E.ListView1.Items.Add do
begin
Caption:=s4;
subitems.Add(s7);
subitems.Add(s6);
subitems.Add(s5);
subitems.Add(edit1.Text);
subitems.Add(edit2.Text);
subitems.Add(datetostr(datetimepicker1.Date));
subitems.Add(edit3.Text);
subitems.Add(edit4.Text);
subitems.Add(edit5.Text);
subitems.Add(edit6.Text);
subitems.Add(s3);
end;
Edit1.ItemIndex:=Edit1.Items.IndexOf('');
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit1.SetFocus;
end;
if f_RealtyA32E.bMod=true then
begin
r2:=f_RealtyA32E.listview1.Selected.Subitems[2];
r3:=f_RealtyA32E.listview1.Selected.Subitems[9];
if Edit1.Text<> f_RealtyA32E.listview1.Selected.Subitems[3] then
begin
s:='select * from 房產驗收 where 所屬單位='''+f_RealtyA32E.listview1.Selected.Caption;
s:=s+''' and 類別='''+s1;
s:=s+''' and 驗收項目='''+edit1.Text+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
showmessage('驗收項目重復');
edit1.SetFocus;
exit;
end;
end;
s:='update 房產驗收 set 驗收項目='''+Edit1.Text;
s:=s+''',驗收結果='''+Edit2.Text;
s:=s+''',驗收日期='''+datetostr(datetimepicker1.Date);
s:=s+''',負責人='''+Edit3.Text;
s:=s+''',驗收人='''+Edit4.Text;
s:=s+''',驗收說明='''+Edit5.Text;
s:=s+''',備注='''+Edit6.Text;
s:=s+''',所屬單位='''+s3;
s:=s+''' where 類別='''+ s1;
s:=s+''' and 驗收項目='''+r2;
s:=s+''' and 所屬單位='''+r3;
s:=s+'''';
DataModuleADO.ADOConnection1.BeginTrans;
Query.SQL.Text:=s;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
with f_RealtyA32E.ListView1.Selected do
begin
Caption:=s4;
subitems[0]:=s7;
subitems[1]:=s6;
subitems[2]:=s5;
subitems[3]:=edit1.Text;
subitems[4]:=edit2.Text;
subitems[5]:=datetostr(datetimepicker1.Date);
subitems[6]:=edit3.Text;
subitems[7]:=edit4.Text;
subitems[8]:=edit5.Text;
subitems[9]:=edit6.Text;
subitems[10]:=s3;
end;
close;
end;
end;
//查找
procedure Tf_RealtyA321E.Button3Click(Sender: TObject);
begin
f_RealtyA15:=Tf_RealtyA15.Create(self);
f_RealtyA15.ToolButton6.Visible:=true;
f_RealtyA15.ShowModal;
if f_RealtyA15.bOk=true then
begin
edit7.Text:=f_RealtyA15.sNum+'--'+f_RealtyA15.sName;
end;
end;
procedure Tf_RealtyA321E.Edit2Select(Sender: TObject);
begin
if edit2.Text='新增驗收結果' then
begin
mainform.t1:='驗收結果';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
edit2.Items.Add(mainform.t1);
edit2.ItemIndex:=edit2.Items.IndexOf(mainform.t1);
end
else edit2.ItemIndex:=edit2.Items.IndexOf('');
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -