?? realtyk101a.pas
字號:
unit RealtyK101A;
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_RealtyK101A = class(TForm)
L1: TLabel;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit4: TEdit;
Label5: TLabel;
edit5: TEdit;
Edit3: TDateTimePicker;
Button1: TButton;
Label6: TLabel;
Edit2: TEdit;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
edit6: TMemo;
Label2: TLabel;
Label7: TLabel;
edit7: TMemo;
edit8: TMemo;
edit9: TMemo;
edit10: TMemo;
edit11: TMemo;
edit12: TMemo;
edit13: TMemo;
edit14: TMemo;
edit15: TMemo;
edit16: TMemo;
edit17: TMemo;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label11: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
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 getId;
procedure Button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
bOK:bool;
T:string;
end;
var
f_RealtyK101A: Tf_RealtyK101A;
sNum:string;
implementation
uses data, main,Car4s931,RealtyK101,realtyI11C;
{$R *.dfm}
procedure Tf_RealtyK101A.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 edit2.text := '000000'+inttostr(i)
else if (i > 9) and (i<100) then edit2.text := '00000'+inttostr(i)
else if (i > 99) and (i<1000) then edit2.text := '0000'+inttostr(i)
else if (i > 999) and (i<10000) then edit2.text := '000'+inttostr(i)
else if (i > 9999) and (i<100000) then edit2.text := '00'+inttostr(i)
else if (i > 99999) and (i<1000000) then edit2.text := '0'+inttostr(i)
else if i>999999 then edit2.text := inttostr(i);
end
else edit2.text := '0000001';
query.Close;
query.Free;
end;
procedure Tf_RealtyK101A.FormCreate(Sender: TObject);
var
i:integer;
query:TADOQuery;
s:string;
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
PageControl1.ActivePageIndex:=0;
if f_RealtyK101.bNew=true then
begin
getId;
edit3.Date:=date;
end
else
begin
query.SQL.Clear;
query.SQL.Add('select * from 主任工作檢查 where 編號='''+f_RealtyK101.listview1.selected.Caption+'''');
query.Open;
if query.RecordCount>0 then
begin
edit1.Text:=query.fieldbyname('管理處').Value;
edit2.text:=query.fieldbyname('編號').Value;
edit3.date:=strtodate(query.fieldbyname('檢查日期').Value);
edit4.text:=query.fieldbyname('主任簽名').Value;
edit5.text:=query.fieldbyname('備注').Value;
edit6.Text:=query.fieldbyname('情況1').Value;
edit7.Text:=query.fieldbyname('處理1').Value;
edit8.Text:=query.fieldbyname('情況2').Value;
edit9.Text:=query.fieldbyname('處理2').Value;
edit10.Text:=query.fieldbyname('情況3').Value;
edit11.Text:=query.fieldbyname('處理3').Value;
edit12.Text:=query.fieldbyname('情況4').Value;
edit13.Text:=query.fieldbyname('處理4').Value;
edit14.Text:=query.fieldbyname('情況5').Value;
edit15.Text:=query.fieldbyname('處理5').Value;
edit16.Text:=query.fieldbyname('情況6').Value;
edit17.Text:=query.fieldbyname('處理6').Value;
end;
query.close;
query.free;
end;
end;
//Tab
procedure Tf_RealtyK101A.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_RealtyK101A.Button2Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyK101A.ToolButton10Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyK101A.Button1Click(Sender: TObject);
begin
f_realtyI11C:=Tf_realtyI11C.Create(self);
f_RealtyI11C.button1.Visible:=true;
f_realtyI11C.ShowModal;
if f_realtyI11C.bOk=true then
begin
edit1.Text:=f_realtyI11C.ListView1.Selected.SubItems[0];
end;
end;
procedure Tf_RealtyK101A.Button7Click(Sender: TObject);
VAR
query:TADOQuery;
s:string;
begin
if Edit1.Text='' then
begin
showmessage('請選擇管理處。');
Edit1.SetFocus;
exit;
end;
if Edit4.Text='' then
begin
showmessage('請簽名。');
Edit4.SetFocus;
exit;
end;
if edit5.text='' then edit5.Text:='-';
if edit6.text='' then edit6.Text:='-';
if edit7.text='' then edit7.Text:='-';
if edit8.text='' then edit8.Text:='-';
if edit9.text='' then edit9.Text:='-';
if edit11.text='' then edit11.Text:='-';
if edit10.text='' then edit10.Text:='-';
if edit12.text='' then edit12.Text:='-';
if edit13.text='' then edit13.Text:='-';
if edit14.text='' then edit14.Text:='-';
if edit15.text='' then edit15.Text:='-';
if edit16.text='' then edit16.Text:='-';
if edit17.text='' then edit17.Text:='-';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyK101.bNew=true then
begin
query.SQL.Clear;
Query.SQL.Add('select * from 主任工作檢查 where 編號='''+Edit2.text+'''');
Query.Open ;
if query.RecordCount>0 then
begin
showmessage('編號重復，請重新輸入');
Edit2.SetFocus;
query.Close ;
query.Free ;
exit;
end;
s := 'insert into 主任工作檢查(管理處,編號,檢查日期,主任簽名,備注,情況1,處理1,';
s:=s+'情況2,處理2,情況3,處理3,情況4,處理4,情況5,處理5,情況6,處理6) values(:s1,:s2,:s3,';
s:=s+':s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17)';
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:=trim(Edit6.text);
query.Parameters.ParamByName('s7').Value:=trim(Edit7.text);
query.Parameters.ParamByName('s8').Value:=trim(Edit8.text);
query.Parameters.ParamByName('s9').Value:=trim(Edit9.text);
query.Parameters.ParamByName('s10').Value:=trim(Edit10.text);
query.Parameters.ParamByName('s11').Value:=trim(Edit11.text);
query.Parameters.ParamByName('s12').Value:=trim(Edit12.text);
query.Parameters.ParamByName('s13').Value:=trim(Edit13.text);
query.Parameters.ParamByName('s14').Value:=trim(Edit14.text);
query.Parameters.ParamByName('s15').Value:=trim(Edit15.text);
query.Parameters.ParamByName('s16').Value:=trim(Edit16.text);
query.Parameters.ParamByName('s17').Value:=trim(Edit17.text);
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
showmessage('保存成功。');
query.SQL.Clear;
query.SQL.Add('select * from 主任工作檢查 where 編號='''+edit2.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
with f_RealtyK101.listview1.Items.Add do
begin
caption:=query.fieldbyname('編號').Value;
subitems.Add(query.fieldbyname('管理處').Value);
subitems.Add(query.fieldbyname('主任簽名').Value);
subitems.Add(query.fieldbyname('檢查日期').Value);
subitems.Add(query.fieldbyname('備注').Value);
end;
end;
query.Close ;
query.Free ;
if f_RealtyK101.listview1.Items.Count>0 then f_RealtyK101.listview1.Items.Item[0].Selected:=true;
//清空，新增
getId;
edit3.Date:=date;
edit5.text:=text;
edit4.text:='';
edit6.text:='';
edit7.text:='';
edit8.Text:='';
edit1.Text:='';
edit10.Text:='';
edit9.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
edit17.Text:='';
edit2.SetFocus;
end;
if f_RealtyK101.bNew=false then
begin
s:='update 主任工作檢查 set 管理處='''+edit1.text;
s:=s+''',編號='''+edit2.text;
s:=s+''',檢查日期='''+datetostr(edit3.date);
s:=s+''',主任簽名='''+edit4.text;
s:=s+''',備注='''+edit5.text;
s:=s+''',情況1='''+edit6.text;
s:=s+''',處理1='''+edit7.text;
s:=s+''',情況2='''+edit8.text;
s:=s+''',處理2='''+edit9.text;
s:=s+''',情況3='''+edit10.text;
s:=s+''',處理3='''+edit11.text;
s:=s+''',情況4='''+edit12.text;
s:=s+''',處理4='''+edit13.text;
s:=s+''',情況5='''+edit14.text;
s:=s+''',處理5='''+edit15.text;
s:=s+''',情況6='''+edit16.text;
s:=s+''',處理6='''+edit17.text;
s:=s+''' where 編號='''+f_RealtyK101.ListView1.Selected.caption+'''';
query.SQL.Clear;
query.SQL.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
query.sql.clear;
query.SQL.Add('select * from 主任工作檢查 where 編號='''+edit2.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
with f_RealtyK101.listview1.Selected do
begin
caption:=query.fieldbyname('編號').Value;
subitems[0]:=query.fieldbyname('管理處').Value;
subitems[1]:=query.fieldbyname('主任簽名').Value;
subitems[2]:=query.fieldbyname('檢查日期').Value;
subitems[3]:=query.fieldbyname('備注').Value;
end;
end;
query.Close;
query.Free;
close;
end;
end;
procedure Tf_RealtyK101A.Button5Click(Sender: TObject);
begin
close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -