📄 gzxx.~pas
字号:
if editdbedit27.ReadOnly=true then
begin
table1.Edit;
label27.Font.Color:=rgb(255,0,0);
editdbedit27.ReadOnly:=false;
end
else
begin
table1.Post;
label27.Font.Color:=rgb(0,0,0);
editdbedit27.ReadOnly:=true;
end;
end;
procedure TForm5.Label29DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit29.ReadOnly=true then
begin
table1.Edit;
label29.Font.Color:=rgb(255,0,0);
editdbedit29.ReadOnly:=false;
end
else
begin
table1.Post;
label29.Font.Color:=rgb(0,0,0);
editdbedit29.ReadOnly:=true;
end;
end;
procedure TForm5.Label78DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit78.ReadOnly=true then
begin
table1.Edit;
label78.Font.Color:=rgb(255,0,0);
editdbedit78.ReadOnly:=false;
end
else
begin
table1.Post;
label78.Font.Color:=rgb(0,0,0);
editdbedit78.ReadOnly:=true;
end;
end;
procedure TForm5.Label79DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit79.ReadOnly=true then
begin
table1.Edit;
label79.Font.Color:=rgb(255,0,0);
editdbedit79.ReadOnly:=false;
end
else
begin
table1.Post;
label79.Font.Color:=rgb(0,0,0);
editdbedit79.ReadOnly:=true;
end;
end;
procedure TForm5.Label45DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit45.ReadOnly=true then
begin
table1.Edit;
label45.Font.Color:=rgb(255,0,0);
editdbedit45.ReadOnly:=false;
end
else
begin
table1.Post;
label45.Font.Color:=rgb(0,0,0);
editdbedit45.ReadOnly:=true;
end;
end;
procedure TForm5.Label26DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit26.ReadOnly=true then
begin
table1.Edit;
label26.Font.Color:=rgb(255,0,0);
editdbedit26.ReadOnly:=false;
end
else
begin
table1.Post;
label26.Font.Color:=rgb(0,0,0);
editdbedit26.ReadOnly:=true;
end;
end;
procedure TForm5.Label30DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit30.ReadOnly=true then
begin
table1.Edit;
label30.Font.Color:=rgb(255,0,0);
editdbedit30.ReadOnly:=false;
end
else
begin
table1.Post;
label30.Font.Color:=rgb(0,0,0);
editdbedit30.ReadOnly:=true;
end;
end;
procedure TForm5.Label31DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit31.ReadOnly=true then
begin
table1.Edit;
label31.Font.Color:=rgb(255,0,0);
editdbedit31.ReadOnly:=false;
end
else
begin
table1.Post;
label31.Font.Color:=rgb(0,0,0);
editdbedit31.ReadOnly:=true;
end;
end;
procedure TForm5.Label74DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit74.ReadOnly=true then
begin
table1.Edit;
label74.Font.Color:=rgb(255,0,0);
editdbedit74.ReadOnly:=false;
end
else
begin
table1.Post;
label74.Font.Color:=rgb(0,0,0);
editdbedit74.ReadOnly:=true;
end;
end;
procedure TForm5.Label76DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit76.ReadOnly=true then
begin
table1.Edit;
label76.Font.Color:=rgb(255,0,0);
editdbedit76.ReadOnly:=false;
end
else
begin
table1.Post;
label76.Font.Color:=rgb(0,0,0);
editdbedit76.ReadOnly:=true;
end;
end;
procedure TForm5.Label32DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit32.ReadOnly=true then
begin
table1.Edit;
label32.Font.Color:=rgb(255,0,0);
editdbedit32.ReadOnly:=false;
end
else
begin
table1.Post;
label32.Font.Color:=rgb(0,0,0);
editdbedit32.ReadOnly:=true;
end;
end;
procedure TForm5.Label28DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit28.ReadOnly=true then
begin
table1.Edit;
label28.Font.Color:=rgb(255,0,0);
editdbedit28.ReadOnly:=false;
end
else
begin
table1.Post;
label28.Font.Color:=rgb(0,0,0);
editdbedit28.ReadOnly:=true;
end;
end;
procedure TForm5.Label33DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit33.ReadOnly=true then
begin
table1.Edit;
label33.Font.Color:=rgb(255,0,0);
editdbedit33.ReadOnly:=false;
end
else
begin
table1.Post;
label33.Font.Color:=rgb(0,0,0);
editdbedit33.ReadOnly:=true;
end;
end;
procedure TForm5.Label34DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit34.ReadOnly=true then
begin
table1.Edit;
label34.Font.Color:=rgb(255,0,0);
editdbedit34.ReadOnly:=false;
end
else
begin
table1.Post;
label34.Font.Color:=rgb(0,0,0);
editdbedit34.ReadOnly:=true;
end;
end;
procedure TForm5.Label80DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit80.ReadOnly=true then
begin
table1.Edit;
label80.Font.Color:=rgb(255,0,0);
editdbedit80.ReadOnly:=false;
end
else
begin
table1.Post;
label80.Font.Color:=rgb(0,0,0);
editdbedit80.ReadOnly:=true;
end;
end;
procedure TForm5.Label81DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit81.ReadOnly=true then
begin
table1.Edit;
label81.Font.Color:=rgb(255,0,0);
editdbedit81.ReadOnly:=false;
end
else
begin
table1.Post;
label81.Font.Color:=rgb(0,0,0);
editdbedit81.ReadOnly:=true;
end;
end;
procedure TForm5.Label82DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit82.ReadOnly=true then
begin
table1.Edit;
label82.Font.Color:=rgb(255,0,0);
editdbedit82.ReadOnly:=false;
end
else
begin
table1.Post;
label82.Font.Color:=rgb(0,0,0);
editdbedit82.ReadOnly:=true;
end;
end;
procedure TForm5.Label83DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit83.ReadOnly=true then
begin
table1.Edit;
label83.Font.Color:=rgb(255,0,0);
editdbedit83.ReadOnly:=false;
end
else
begin
table1.Post;
label83.Font.Color:=rgb(0,0,0);
editdbedit83.ReadOnly:=true;
end;
end;
procedure TForm5.Label84DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit84.ReadOnly=true then
begin
table1.Edit;
label84.Font.Color:=rgb(255,0,0);
editdbedit84.ReadOnly:=false;
end
else
begin
table1.Post;
label84.Font.Color:=rgb(0,0,0);
editdbedit84.ReadOnly:=true;
end;
end;
procedure TForm5.Label85DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit85.ReadOnly=true then
begin
table1.Edit;
label85.Font.Color:=rgb(255,0,0);
editdbedit85.ReadOnly:=false;
end
else
begin
table1.Post;
label85.Font.Color:=rgb(0,0,0);
editdbedit85.ReadOnly:=true;
end;
end;
procedure TForm5.Label20DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit20.ReadOnly=true then
begin
table1.Edit;
label20.Font.Color:=rgb(255,0,0);
editdbedit20.ReadOnly:=false;
end
else
begin
table1.Post;
label20.Font.Color:=rgb(0,0,0);
editdbedit20.ReadOnly:=true;
end;
end;
procedure TForm5.Label36DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit36.ReadOnly=true then
begin
table1.Edit;
label36.Font.Color:=rgb(255,0,0);
editdbedit36.ReadOnly:=false;
end
else
begin
table1.Post;
label36.Font.Color:=rgb(0,0,0);
editdbedit36.ReadOnly:=true;
end;
end;
procedure TForm5.Label37DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit37.ReadOnly=true then
begin
table1.Edit;
label37.Font.Color:=rgb(255,0,0);
editdbedit37.ReadOnly:=false;
end
else
begin
table1.Post;
label37.Font.Color:=rgb(0,0,0);
editdbedit37.ReadOnly:=true;
end;
end;
procedure TForm5.Label47DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit47.ReadOnly=true then
begin
table1.Edit;
label47.Font.Color:=rgb(255,0,0);
editdbedit47.ReadOnly:=false;
end
else
begin
table1.Post;
label47.Font.Color:=rgb(0,0,0);
editdbedit47.ReadOnly:=true;
end;
end;
procedure TForm5.Label51DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit51.ReadOnly=true then
begin
table1.Edit;
label51.Font.Color:=rgb(255,0,0);
editdbedit51.ReadOnly:=false;
end
else
begin
table1.Post;
label51.Font.Color:=rgb(0,0,0);
editdbedit51.ReadOnly:=true;
end;
end;
procedure TForm5.Label53DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit53.ReadOnly=true then
begin
table1.Edit;
label53.Font.Color:=rgb(255,0,0);
editdbedit53.ReadOnly:=false;
end
else
begin
table1.Post;
label53.Font.Color:=rgb(0,0,0);
editdbedit53.ReadOnly:=true;
end;
end;
procedure TForm5.Label54DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit54.ReadOnly=true then
begin
table1.Edit;
label54.Font.Color:=rgb(255,0,0);
editdbedit54.ReadOnly:=false;
end
else
begin
table1.Post;
label54.Font.Color:=rgb(0,0,0);
editdbedit54.ReadOnly:=true;
end;
end;
procedure TForm5.Label55DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit55.ReadOnly=true then
begin
table1.Edit;
label55.Font.Color:=rgb(255,0,0);
editdbedit55.ReadOnly:=false;
end
else
begin
table1.Post;
label55.Font.Color:=rgb(0,0,0);
editdbedit55.ReadOnly:=true;
end;
end;
procedure TForm5.Label57DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit57.ReadOnly=true then
begin
table1.Edit;
label57.Font.Color:=rgb(255,0,0);
editdbedit57.ReadOnly:=false;
end
else
begin
table1.Post;
label57.Font.Color:=rgb(0,0,0);
editdbedit57.ReadOnly:=true;
end;
end;
procedure TForm5.Label73DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit73.ReadOnly=true then
begin
table1.Edit;
label73.Font.Color:=rgb(255,0,0);
editdbedit73.ReadOnly:=false;
end
else
begin
table1.Post;
label73.Font.Color:=rgb(0,0,0);
editdbedit73.ReadOnly:=true;
end;
end;
procedure TForm5.Label75DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit75.ReadOnly=true then
begin
table1.Edit;
label75.Font.Color:=rgb(255,0,0);
editdbedit75.ReadOnly:=false;
end
else
begin
table1.Post;
label75.Font.Color:=rgb(0,0,0);
editdbedit75.ReadOnly:=true;
end;
end;
procedure TForm5.Label77DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit77.ReadOnly=true then
begin
table1.Edit;
label77.Font.Color:=rgb(255,0,0);
editdbedit77.ReadOnly:=false;
end
else
begin
table1.Post;
label77.Font.Color:=rgb(0,0,0);
editdbedit77.ReadOnly:=true;
end;
end;
procedure TForm5.ComboBox3Click(Sender: TObject);
begin
table1.Edit;
editdbedit6.Text:=combobox3.Text;
table1.Post;
end;
procedure TForm5.ComboBox5Click(Sender: TObject);
begin
table1.Edit;
editdbedit7.Text:=combobox5.Text;
table1.Post;
end;
procedure TForm5.ComboBox6Click(Sender: TObject);
begin
table1.Edit;
editdbedit8.Text:=combobox6.Text;
table1.Post;
end;
procedure TForm5.ComboBox7Click(Sender: TObject);
begin
table1.Edit;
editdbedit48.Text:=combobox7.Text;
table1.Post;
end;
procedure TForm5.Edit2Change(Sender: TObject);
begin
if combobox4.text<>'' then
begin
table1.Filtered:=false;
table1.Active:=false;
table1.Active:=true;
table1.First;
table1.Filtered:=true;
end;
end;
end.
procedure TForm5.Label4Click(Sender: TObject);
begin
table1.Edit;
if dbedit1.ReadOnly=true then
begin
table1.Edit;
label86.Font.Color:=rgb(255,0,0);
dbedit1.ReadOnly:=false;
end
else
begin
table1.Post;
label86.Font.Color:=rgb(0,0,0);
dbedit1.ReadOnly:=true;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -