?? realtyg52a.pas
字號:
unit RealtyG52A;
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_RealtyG52A = class(TForm)
L1: TLabel;
Label9: TLabel;
Label10: TLabel;
Edit2: TEdit;
edit5: TEdit;
Label1: TLabel;
ListView1: TListView;
VVV: TButton;
Label2: TLabel;
edit11: TEdit;
Label3: TLabel;
Edit12: TEdit;
Edit1: TEdit;
Label5: TLabel;
Label6: TLabel;
edit3: TEdit;
edit4: TEdit;
Label7: TLabel;
edit6: TEdit;
Label8: TLabel;
Label11: TLabel;
edit8: TEdit;
Label12: TLabel;
edit9: TEdit;
Label4: TLabel;
edit10: TEdit;
Button1: TButton;
Button2: TButton;
edit7: TComboBox;
PopupMenu1: TPopupMenu;
N4: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
Button7: TButton;
Button5: TButton;
Label13: TLabel;
Edit13: TEdit;
Button3: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure VVVClick(Sender: TObject);
procedure getId;
procedure FormCreate(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button2Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure edit7Select(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
T:string;
bNew:bool;
end;
var
f_RealtyG52A: Tf_RealtyG52A;
sNum:string;
implementation
uses data, main,RealtyG52,RealtyG52AB,RealtyL23,Car4s931,realtyI11C;
{$R *.dfm}
//新增 1
procedure Tf_RealtyG52A.ToolButton5Click(Sender: TObject);
begin
//
end;
//查看 2
procedure Tf_RealtyG52A.ToolButton4Click(Sender: TObject);
begin
//
end;
//刪除 3
procedure Tf_RealtyG52A.ToolButton7Click(Sender: TObject);
begin
//
end;
//復制 5
procedure Tf_RealtyG52A.ToolButton6Click(Sender: TObject);
begin
//
end;
//關閉 7
procedure Tf_RealtyG52A.ToolButton10Click(Sender: TObject);
begin
close;
end;
//公共函數**************************************************
//初始化 一
procedure Tf_RealtyG52A.FormCreate(Sender: TObject);
var
i:integer;
s:string;
query:TADOQuery;
begin
//1
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
edit7.items.add('新增消防等級');
query.sql.add('select * from 輔助資料 where 類別='''+'消防等級'+'''');
query.open;
while not query.eof do
begin
edit7.items.add(query.fieldbyname('名稱').value);
query.next;
end;
//2 新增
if f_RealtyG52.bnew=true then
begin
getId;
edit11.text:=czy;
end;
//3 修改
if f_RealtyG52.bnew=false then
begin
if f_RealtyG52.ListView1.Selected.SubItems[11]='Y' then button7.Enabled:=false;
query.sql.clear;
query.SQL.Add('select * from 消防片區 where 單號='''+f_RealtyG52.listview1.selected.subitems[10]+'''');
query.Open;
if query.RecordCount>0 then
begin
edit1.text:=query.fieldbyname('單號').Value;
edit2.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.ItemIndex:=edit7.Items.IndexOf(query.fieldbyname('消防等級').Value);
edit8.text:=query.fieldbyname('器材保養人').Value;
edit9.text:=query.fieldbyname('地點').Value;
edit10.text:=query.fieldbyname('備注').Value;
edit11.text:=query.fieldbyname('操作員').Value;
edit12.text:=query.fieldbyname('修訂').Value;
edit13.Text:=query.fieldbyname('組織機構').Value+'--'+mainform.getName('組織機構',query.fieldbyname('組織機構').Value);
listview1.Items.Clear;
query.sql.clear;
query.SQL.Add('select * from 消防片區消防器材配備 where 單號='''+edit1.text+'''');
query.Open;
while not query.Eof do
begin
with listview1.Items.Add do
begin
caption:=query.fieldbyname('消防器材').value;
subitems.add(query.fieldbyname('數量').value);
subitems.add(query.fieldbyname('備注').value);
end;
query.Next;
end;
end;
end;
//4
query.Close;
query.Free;
end;
//Tab
procedure Tf_RealtyG52A.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_RealtyG52A.getid;
var
i:integer;
query:TADOQuery;
s:string;
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;
procedure Tf_RealtyG52A.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
edit5.Text:=f_RealtyL23.sName;
end;
end;
//取設備責任人---------------
procedure Tf_RealtyG52A.VVVClick(Sender: TObject);
begin
f_RealtyL23:=Tf_RealtyL23.Create(self);
f_RealtyL23.Button2.Visible:=true;
f_RealtyL23.ShowModal;
if f_RealtyL23.bOk=true then
begin
edit3.Text:=f_RealtyL23.sName;
end;
end;
procedure Tf_RealtyG52A.N4Click(Sender: TObject);
begin
bNew:=true;
f_RealtyG52AB:=Tf_RealtyG52AB.Create(self);
f_RealtyG52AB.ShowModal;
end;
procedure Tf_RealtyG52A.N8Click(Sender: TObject);
begin
if listview1.SelCount=0 then exit;
bnew:=false;
f_RealtyG52AB:=Tf_RealtyG52AB.Create(self);
f_RealtyG52AB.ShowModal;
end;
procedure Tf_RealtyG52A.N10Click(Sender: TObject);
begin
if listview1.SelCount=0 then exit;
if(Application.MessageBox(PChar('確認要刪除所選記錄嗎?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=0) then exit;
listview1.selected.delete;
if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
end;
procedure Tf_RealtyG52A.ListView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
popupmenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;
procedure Tf_RealtyG52A.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
edit8.Text:=f_RealtyL23.sName;
end;
end;
procedure Tf_RealtyG52A.Button7Click(Sender: TObject);
var
i,j:integer;
s,ss,rr:string;
Query,query1,query2,query3:TADOQuery;
d,d1,d2:double;
begin
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -