?? realtya151.pas
字號:
unit RealtyA151;
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_RealtyA151 = class(TForm)
L1: TLabel;
L2: TLabel;
L4: TLabel;
Label2: TLabel;
Label3: TLabel;
Label9: TLabel;
Edit1: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Edit7: TEdit;
Edit8: TEdit;
edit5: TComboBox;
edit6: TComboBox;
Label4: TLabel;
Edit9: TEdit;
Edit2: TEdit;
Button2: TButton;
ToolButton6: TButton;
ToolButton5: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure NN6Click(Sender: TObject);
procedure GetID;
procedure ToolButton5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure edit5Select(Sender: TObject);
procedure edit6Select(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
end;
var
f_RealtyA151: Tf_RealtyA151;
sNum:string;
implementation
uses data, main, RealtyA15, RealtyA13,Car4s931;
{$R *.dfm}
//GetID**********************************
procedure Tf_RealtyA151.GetID;
var
query:TADOQuery;
s:string;
i:integer;
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;
//Init *******************************
procedure Tf_RealtyA151.FormCreate(Sender: TObject);
var
query:TADOQuery;
s,s1,s2,s3:string;
i:integer;
begin
query:=TADOQuery.Create(nil);
query.Connection:=DatamoduleADO.ADOConnection1;
edit5.Items.Add('新增用途');
query.SQL.Clear;
query.SQL.Add('select * from 輔助資料 where 類別='''+'用途'+'''');
query.Open;
while not query.Eof do
begin
edit5.Items.Add(query.fieldbyname('名稱').Value);
query.Next;
end;
edit6.Items.Add('新增權屬類型');
query.SQL.Clear;
query.SQL.Add('select * from 輔助資料 where 類別='''+'權屬類型'+'''');
query.Open;
while not query.Eof do
begin
edit6.Items.Add(query.fieldbyname('名稱').Value);
query.Next;
end;
If (f_RealtyA15.bMod = false) Then
begin
GetID;
end;
If (f_RealtyA15.bMod = True) Then
begin
s:= 'select * from 車位 where 編號='''+f_RealtyA15.ListView1.Selected.Caption;
s:=s+'''';
query.SQL.Clear;
query.sql.add(s);
query.Open;
if query.RecordCount>0 then
begin
with f_RealtyA15.ListView1.Selected do
begin
edit1.Text:=query.fieldbyname('編號').Value;
edit9.Text:=query.fieldbyname('名稱').Value;
edit3.Text:=query.fieldbyname('建筑面積').Value;
edit4.Text:=query.fieldbyname('使用面積').Value;
edit5.Text:=query.fieldbyname('用途').Value;
edit6.text:=query.fieldbyname('權屬類型').Value;
edit7.text:=query.fieldbyname('配套設施').Value;
edit8.text:=query.fieldbyname('說明').Value;
s:='select * from 停車場 where 編號='''+query.fieldbyname('停車場').Value+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
edit2.text:=query.fieldbyname('編號').Value+'--'+query.fieldbyname('名稱').Value;
end;
end;
end;
end;
query.Close;
query.Free;
end;
//Tab*************************************
procedure Tf_RealtyA151.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_RealtyA151.ToolButton10Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyA151.NN6Click(Sender: TObject);
begin
ToolButton10Click(Sender);
end;
procedure Tf_RealtyA151.ToolButton5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyA151.Button2Click(Sender: TObject);
begin
f_RealtyA13:=Tf_RealtyA13.Create(self);
f_RealtyA13.ToolButton6.Visible:=true;
f_RealtyA13.ShowModal;
if f_RealtyA13.bOk=true then
begin
edit2.Text:=f_RealtyA13.sNum+'--'+f_RealtyA13.sName;
end;
end;
procedure Tf_RealtyA151.ToolButton6Click(Sender: TObject);
Var
query:TADOQuery;
s,s1,s2,s3,s4,s5,s6:String;
i:integer;
tmpNode:TTreeNode;
begin
if edit1.Text='' then
begin
showmessage('請輸入編號');
edit1.SetFocus;
exit;
end;
if edit2.Text='' then
begin
showmessage('請輸入停車場');
edit2.SetFocus;
exit;
end;
if edit9.Text='' then
begin
showmessage('請輸入名稱');
edit9.SetFocus;
exit;
end;
edit3.Text:=mainform.StdDou2(edit3.Text);
edit4.Text:=mainform.StdDou2(edit4.Text);
if edit2.Text='' then edit2.Text:='-';
if edit5.Text='' then edit5.Text:='-';
if edit6.Text='' then edit6.Text:='-';
if edit7.Text='' then edit7.Text:='-';
if edit8.Text='' then edit8.Text:='-';
s5:=edit5.Text;
s6:=edit6.Text;
if edit5.Text='' then s5:='-';
if edit6.Text='' then s6:='-';
query:=TADOQuery.Create(nil);
query.Connection:=DataModuleADO.ADOConnection1;
s:='select * from 停車場 where 編號='''+mainform.getNum(Edit2.Text)+'''';
s1:='-';
s2:='-';
s3:='-';
s4:='-';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
s1:=query.fieldbyname('管理處').Value;
s2:=query.fieldbyname('管理區').Value;
end;
s:='select * from 組織機構 where 編號='''+s1+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
s3:=query.fieldbyname('名稱').Value;
end;
s:='select * from 管理區 where 編號='''+s2+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
s4:=query.fieldbyname('名稱').Value;
end;
if f_RealtyA15.bMod=false then
begin
s:='select * from 車位 where 編號='''+Edit1.Text;
s:=s+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
if query.FieldByName('編號').Value=edit1.Text then
begin
showmessage('編號重復!,請重新輸入!');
edit1.SetFocus;
exit;
end;
end;
s:='insert into 車位(編號,停車場,名稱,建筑面積,使用面積,權屬類型,';
s:=s+'用途,配套設施,說明,管理區,管理處)';
s:=s+' Values(:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,:s11)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:=mainform.getNum(Edit2.Text);
query.Parameters.ParamByName('s3').Value:=edit9.Text;
query.Parameters.ParamByName('s4').Value:=strtofloat(mainform.StdDou2(edit3.Text));
query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdDou2(edit4.Text));
query.Parameters.ParamByName('s6').Value:=s6;
query.Parameters.ParamByName('s7').Value:=s5;
query.Parameters.ParamByName('s8').Value:=edit7.text;
query.Parameters.ParamByName('s9').Value:=edit8.text;
query.Parameters.ParamByName('s10').Value:=s2;
query.Parameters.ParamByName('s11').Value:=s1;
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
s:='select * from 車位 where 編號='''+Edit1.Text;
s:=s+'''';
query.sql.clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
with f_RealtyA15.ListView1.Items.Add do
begin
Caption:=Query.FieldbyName('編號').Value;
SubItems.Add(s3);
SubItems.Add(s4);
SubItems.Add(mainform.getLastName(Edit2.Text));
SubItems.Add(Query.FieldByName('名稱').Value);
SubItems.Add(Query.FieldByName('建筑面積').Value);
SubItems.Add(Query.FieldByName('使用面積').Value);
SubItems.Add(Query.FieldByName('權屬類型').Value);
SubItems.Add(Query.FieldByName('用途').Value);
SubItems.Add(Query.FieldByName('配套設施').Value);
SubItems.Add(Query.FieldByName('說明').Value);
end;
query.Next;
end;
if f_RealtyA15.listview1.Items.Count=1 then f_RealtyA15.listview1.Items.Item[0].Selected:=true;
GetId;
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.text := '';
Edit7.text := '';
Edit8.text := '';
Edit1.SetFocus;
end;
if f_RealtyA15.bMod=true then
begin
if Edit1.Text<>f_RealtyA15.ListView1.Selected.Caption then
begin
s:='select * from 車位 where 編號='''+Edit1.Text;
s:=s+'''';
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+''',名稱='''+edit9.Text;
s:=s+''',建筑面積='+edit3.Text;
s:=s+',使用面積='+edit4.Text;
s:=s+',用途='''+s5;
s:=s+''',權屬類型='''+s6;
s:=s+''',配套設施='''+edit7.Text;
s:=s+''',說明='''+edit8.Text;
s:=s+''',停車場='''+mainform.getNum(Edit2.Text);
s:=s+''',管理區='''+s2;
s:=s+''',管理處='''+s1;
s:=s+''' where 編號='''+f_RealtyA15.ListView1.Selected.Caption;
s:=s+'''';
query.SQL.Clear;
query.sql.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
s:='select * from 車位 where 編號='''+Edit1.Text;
s:=s+'''';
query.sql.clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
with f_RealtyA15.ListView1.Selected do
begin
Caption:=query.fieldbyname('編號').Value;
SubItems[0]:=s3;
SubItems[1]:=s4;
SubItems[2]:=mainform.getLastName(Edit2.Text);
SubItems[3]:=Query.FieldByName('名稱').Value;
SubItems[4]:=Query.FieldByName('建筑面積').Value;
SubItems[5]:=Query.FieldByName('使用面積').Value;
SubItems[6]:=Query.FieldByName('權屬類型').Value;
SubItems[7]:=Query.FieldByName('用途').Value;
SubItems[8]:=Query.FieldByName('配套設施').Value;
SubItems[9]:=Query.FieldByName('說明').Value;
end;
query.Next;
end;
query.close;
query.Free;
close;
end;
end;
procedure Tf_RealtyA151.edit5Select(Sender: TObject);
begin
if edit5.Text='新增用途' then
begin
mainform.t1:='用途';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
edit5.Items.Add(mainform.t1);
edit5.ItemIndex:=edit5.Items.IndexOf(mainform.t1);
end
else edit5.ItemIndex:=edit5.Items.IndexOf('');
end;
end;
procedure Tf_RealtyA151.edit6Select(Sender: TObject);
begin
if edit6.Text='新增權屬類型' then
begin
mainform.t1:='權屬類型';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
edit6.Items.Add(mainform.t1);
edit6.ItemIndex:=edit6.Items.IndexOf(mainform.t1);
end
else edit6.ItemIndex:=edit6.Items.IndexOf('');
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -