📄 unit1.pas
字号:
QRDBText20: TQRDBText;
QRDBText23: TQRDBText;
QRDBText26: TQRDBText;
QRDBText29: TQRDBText;
QRLabel24: TQRLabel;
QRLabel19: TQRLabel;
QRDBText27: TQRDBText;
QRDBText24: TQRDBText;
QRDBText21: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText30: TQRDBText;
QRLabel29: TQRLabel;
QRDBText31: TQRDBText;
QRLabel31: TQRLabel;
QRDBText32: TQRDBText;
QRLabel32: TQRLabel;
QRDBText33: TQRDBText;
QRShape15: TQRShape;
QRLabel33: TQRLabel;
QRDBText34: TQRDBText;
QRLabel34: TQRLabel;
QRDBText35: TQRDBText;
QRLabel35: TQRLabel;
QRDBText36: TQRDBText;
QRDBText37: TQRDBText;
QRLabel36: TQRLabel;
QRDBText38: TQRDBText;
QRDBText39: TQRDBText;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRLabel37: TQRLabel;
QRDBText40: TQRDBText;
QRLabel30: TQRLabel;
QRDBText41: TQRDBText;
QRShape18: TQRShape;
QRShape19: TQRShape;
QRShape20: TQRShape;
QRLabel38: TQRLabel;
QRDBText42: TQRDBText;
QRLabel39: TQRLabel;
QRDBText43: TQRDBText;
QRLabel40: TQRLabel;
QRDBText44: TQRDBText;
QRLabel41: TQRLabel;
QRDBText45: TQRDBText;
QRLabel42: TQRLabel;
QRDBText46: TQRDBText;
QRDBText47: TQRDBText;
QRShape21: TQRShape;
QRShape23: TQRShape;
QRLabel43: TQRLabel;
QRDBText48: TQRDBText;
QRLabel44: TQRLabel;
QRDBText49: TQRDBText;
QRLabel45: TQRLabel;
QRDBText50: TQRDBText;
QRLabel47: TQRLabel;
QRDBText52: TQRDBText;
QRLabel48: TQRLabel;
QRDBText53: TQRDBText;
QRDBText54: TQRDBText;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRLabel46: TQRLabel;
QRDBText51: TQRDBText;
QRLabel49: TQRLabel;
QRDBText55: TQRDBText;
QRLabel50: TQRLabel;
QRDBText56: TQRDBText;
QRLabel51: TQRLabel;
QRDBText57: TQRDBText;
QRLabel52: TQRLabel;
QRDBText58: TQRDBText;
QRLabel53: TQRLabel;
QRDBText59: TQRDBText;
QRLabel54: TQRLabel;
QRLabel55: TQRLabel;
QRDBText60: TQRDBText;
QRLabel56: TQRLabel;
QRLabel57: TQRLabel;
QRDBText61: TQRDBText;
QRLabel58: TQRLabel;
QRDBText62: TQRDBText;
QRLabel59: TQRLabel;
QRDBText63: TQRDBText;
QRDBText64: TQRDBText;
QRLabel60: TQRLabel;
QRDBText65: TQRDBText;
QRDBText66: TQRDBText;
QRLabel61: TQRLabel;
QRDBText67: TQRDBText;
QRShape28: TQRShape;
QRShape29: TQRShape;
QRShape30: TQRShape;
QRLabel62: TQRLabel;
QRDBText68: TQRDBText;
QRLabel63: TQRLabel;
QRDBText69: TQRDBText;
QRLabel64: TQRLabel;
QRDBText70: TQRDBText;
QRDBText71: TQRDBText;
QRLabel65: TQRLabel;
QRDBText72: TQRDBText;
QRShape31: TQRShape;
QRLabel66: TQRLabel;
QRDBText73: TQRDBText;
QRLabel67: TQRLabel;
QRDBText74: TQRDBText;
QRDBText75: TQRDBText;
QRShape32: TQRShape;
QRShape33: TQRShape;
QRShape34: TQRShape;
QRLabel68: TQRLabel;
QRDBText76: TQRDBText;
QRLabel69: TQRLabel;
QRLabel70: TQRLabel;
QRDBText77: TQRDBText;
QRDBText78: TQRDBText;
QRDBText79: TQRDBText;
QRLabel71: TQRLabel;
QRLabel72: TQRLabel;
QRDBText80: TQRDBText;
QRLabel73: TQRLabel;
QRDBText81: TQRDBText;
QRDBText82: TQRDBText;
QRShape35: TQRShape;
QRShape36: TQRShape;
QRShape37: TQRShape;
QRShape38: TQRShape;
QRShape39: TQRShape;
QRShape40: TQRShape;
QRLabel74: TQRLabel;
QRDBText83: TQRDBText;
QRLabel75: TQRLabel;
QRDBText84: TQRDBText;
QRLabel76: TQRLabel;
QRDBText85: TQRDBText;
QRLabel77: TQRLabel;
QRDBText86: TQRDBText;
QRLabel78: TQRLabel;
QRDBText87: TQRDBText;
QRLabel79: TQRLabel;
QRLabel80: TQRLabel;
QRDBText88: TQRDBText;
QRDBText89: TQRDBText;
QRLabel81: TQRLabel;
QRDBText90: TQRDBText;
QRDBText91: TQRDBText;
QRLabel82: TQRLabel;
QRLabel83: TQRLabel;
QRDBText92: TQRDBText;
QRLabel84: TQRLabel;
QRDBText93: TQRDBText;
QRLabel85: TQRLabel;
QRDBText94: TQRDBText;
procedure exit1Execute(Sender: TObject);
procedure newExecute(Sender: TObject);
procedure projectExecute(Sender: TObject);
procedure deleteExecute(Sender: TObject);
procedure bakupExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure RadioButton4Click(Sender: TObject);
procedure RadioButton5Click(Sender: TObject);
procedure RadioButton6Click(Sender: TObject);
procedure RadioButton7Click(Sender: TObject);
procedure RadioButton8Click(Sender: TObject);
procedure RadioButton9Click(Sender: TObject);
procedure RadioButton10Click(Sender: TObject);
procedure RadioButton11Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure new_gcmcExecute(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure new_gczgkExecute(Sender: TObject);
procedure new_ztsgdwExecute(Sender: TObject);
procedure new_dkdwExecute(Sender: TObject);
procedure new_jfdwExecute(Sender: TObject);
procedure new_sjdwExecute(Sender: TObject);
procedure new_lhjgcExecute(Sender: TObject);
procedure new_zjjcdwExecute(Sender: TObject);
procedure new_jzgcExecute(Sender: TObject);
procedure new_jldwExecute(Sender: TObject);
procedure new_wwktdwExecute(Sender: TObject);
procedure SJDWExecute(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure ZTSGDWExecute(Sender: TObject);
procedure JLDWExecute(Sender: TObject);
procedure LHJDWExecute(Sender: TObject);
procedure JZJCDWExecute(Sender: TObject);
procedure saveproject(adotable:Tadotable;projectname:string;gcid:integer);
procedure JZGCDWExecute(Sender: TObject);
procedure WWKTDWExecute(Sender: TObject);
procedure DKDWExecute(Sender: TObject);
procedure GCMCExecute(Sender: TObject);
procedure GCZGKExecute(Sender: TObject);
procedure JFDWExecute(Sender: TObject);
procedure DBComboBox10Change(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure queryExecute(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
gcid :integer;//新建工程ID
gcname : string ;//新建工程名称
ismodify : boolean;
const
A = ' 已成功增加！！！ ';
B = ' 修改成功！！！ ';
ljf = '''' + ',' + '''' ;
implementation
uses DM, Unit2;
{$R *.dfm}
procedure TForm1.exit1Execute(Sender: TObject);
begin
close;
application.Terminate ;
end;
procedure TForm1.newExecute(Sender: TObject);
var i :integer;
begin
if not pagecontrol1.Visible then pagecontrol1.Visible:= true;
for i := 0 to pagecontrol1.PageCount - 1 do
begin
if pagecontrol1.Pages[i].Caption = new.Caption then
pagecontrol1.Pages[i].TabVisible := true
else
pagecontrol1.Pages[i].TabVisible := false;
end;
end;
procedure TForm1.projectExecute(Sender: TObject);
begin
{ if not pagecontrol1.Visible then pagecontrol1.Visible:= true;
for i := 0 to pagecontrol1.PageCount - 1 do
begin
if pagecontrol1.Pages[i].Caption = project.Caption then
pagecontrol1.Pages[i].TabVisible := true
else
pagecontrol1.Pages[i].TabVisible := false;
end; }
form2.ShowModal ;
end;
procedure TForm1.deleteExecute(Sender: TObject);
var i :integer;
begin
if not pagecontrol1.Visible then pagecontrol1.Visible:= true;
for i := 0 to pagecontrol1.PageCount - 1 do
begin
if pagecontrol1.Pages[i].Caption = delete.Caption then
begin
pagecontrol1.Pages[i].TabVisible := true ;
adot_project.active := true;
end
else
pagecontrol1.Pages[i].TabVisible := false;
end;
end;
procedure TForm1.bakupExecute(Sender: TObject);
var i :integer;
begin
if not pagecontrol1.Visible then pagecontrol1.Visible:= true;
for i := 0 to pagecontrol1.PageCount - 1 do
begin
if pagecontrol1.Pages[i].Caption = bakup.Caption then
pagecontrol1.Pages[i].TabVisible := true
else
pagecontrol1.Pages[i].TabVisible := false;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
pagecontrol1.Visible := false;
pagecontrol1.Pages[0].TabVisible := false;
pagecontrol1.Pages[1].TabVisible := false;
pagecontrol1.Pages[2].TabVisible := false;
pagecontrol1.Pages[3].TabVisible := false;
panel1.Visible := false;
panel2.Visible := false;
panel3.Visible := false;
panel4.Visible := false;
panel5.Visible := false;
panel6.Visible := false;
panel7.Visible := false;
panel8.Visible := false;
panel9.Visible := false;
panel10.Visible := false;
panel11.Visible := false;
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
gcid := 0;
gcname := '';
StaticText10.Caption := '';
quickrep1.Visible := false;
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
panel1.Visible := true;
panel2.Visible := false;
panel3.Visible := false;
panel4.Visible := false;
panel5.Visible := false;
panel6.Visible := false;
panel7.Visible := false;
panel8.Visible := false;
panel9.Visible := false;
panel10.Visible := false;
panel11.Visible := false;
panel1.Top := groupbox1.Top + 5 ;
panel1.Left := groupbox1.Left + groupbox1.Width + 20;
panel1.Caption := '';
//edit1.SetFocus ;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
panel1.Visible := false;
panel2.Visible := true;
panel3.Visible := false;
panel4.Visible := false;
panel5.Visible := false;
panel6.Visible := false;
panel7.Visible := false;
panel8.Visible := false;
panel9.Visible := false;
panel10.Visible := false;
panel11.Visible := false;
panel2.Top := groupbox1.Top + 5 ;
panel2.Left := groupbox1.Left + groupbox1.Width + 20;
panel2.Caption := '';
//LabeledEdit1.SetFocus ;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
panel1.Visible := false;
panel2.Visible := false;
panel3.Visible := true;
panel4.Visible := false;
panel5.Visible := false;
panel6.Visible := false;
panel7.Visible := false;
panel8.Visible := false;
panel9.Visible := false;
panel10.Visible := false;
panel11.Visible := false;
panel3.Top := groupbox1.Top + 5 ;
panel3.Left := groupbox1.Left + groupbox1.Width + 20;
panel3.Caption := '';
//LabeledEdit19.SetFocus ;
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
panel1.Visible := false;
panel2.Visible := false;
panel3.Visible := false;
panel4.Visible := true;
panel5.Visible := false;
panel6.Visible := false;
panel7.Visible := false;
panel8.Visible := false;
panel9.Visible := false;
panel10.Visible := false;
panel11.Visible := false;
panel4.Top := groupbox1.Top + 5 ;
panel4.Left := groupbox1.Left + groupbox1.Width + 20;
panel4.Caption := '';
//LabeledEdit26.SetFocus ;
end;
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
panel1.Visible := false;
panel2.Visible := false;
panel3.Visible := false;
panel4.Visible := false;
panel5.Visible := true;
panel6.Visible := false;
panel7.Visible := false;
panel8.Visible := false;
panel9.Visible := false;
panel10.Visible := false;
panel11.Visible := false;
panel5.Top := groupbox1.Top + 5 ;
panel5.Left := groupbox1.Left + groupbox1.Width + 20;
panel5.Caption := '';
//LabeledEdit32.SetFocus ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -