📄 gzxx.pas
字号:
label13.Font.Color:=rgb(255,0,0);
editdbedit13.ReadOnly:=false;
end
else
begin
table1.Post;
label13.Font.Color:=rgb(0,0,0);
editdbedit13.ReadOnly:=true;
end;
end;
procedure TForm5.Label52DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit52.ReadOnly=true then
begin
table1.Edit;
label52.Font.Color:=rgb(255,0,0);
editdbedit52.ReadOnly:=false;
end
else
begin
table1.Post;
label52.Font.Color:=rgb(0,0,0);
editdbedit52.ReadOnly:=true;
end;
end;
procedure TForm5.Label10DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit10.ReadOnly=true then
begin
table1.Edit;
label10.Font.Color:=rgb(255,0,0);
editdbedit10.ReadOnly:=false;
end
else
begin
table1.Post;
label10.Font.Color:=rgb(0,0,0);
editdbedit10.ReadOnly:=true;
end;
end;
procedure TForm5.Label66DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit66.ReadOnly=true then
begin
table1.Edit;
label66.Font.Color:=rgb(255,0,0);
editdbedit66.ReadOnly:=false;
end
else
begin
table1.Post;
label66.Font.Color:=rgb(0,0,0);
editdbedit66.ReadOnly:=true;
end;
end;
procedure TForm5.Label17DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit17.ReadOnly=true then
begin
table1.Edit;
label17.Font.Color:=rgb(255,0,0);
editdbedit17.ReadOnly:=false;
end
else
begin
table1.Post;
label17.Font.Color:=rgb(0,0,0);
editdbedit17.ReadOnly:=true;
end;
end;
procedure TForm5.Label21DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit21.ReadOnly=true then
begin
table1.Edit;
label21.Font.Color:=rgb(255,0,0);
editdbedit21.ReadOnly:=false;
end
else
begin
table1.Post;
label21.Font.Color:=rgb(0,0,0);
editdbedit21.ReadOnly:=true;
end;
end;
procedure TForm5.Label40DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit40.ReadOnly=true then
begin
table1.Edit;
label40.Font.Color:=rgb(255,0,0);
editdbedit40.ReadOnly:=false;
end
else
begin
table1.Post;
label40.Font.Color:=rgb(0,0,0);
editdbedit40.ReadOnly:=true;
end;
end;
procedure TForm5.Label56DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit56.ReadOnly=true then
begin
table1.Edit;
label56.Font.Color:=rgb(255,0,0);
editdbedit56.ReadOnly:=false;
end
else
begin
table1.Post;
label56.Font.Color:=rgb(0,0,0);
editdbedit56.ReadOnly:=true;
end;
end;
procedure TForm5.Label41DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit41.ReadOnly=true then
begin
table1.Edit;
label41.Font.Color:=rgb(255,0,0);
editdbedit41.ReadOnly:=false;
end
else
begin
table1.Post;
label41.Font.Color:=rgb(0,0,0);
editdbedit41.ReadOnly:=true;
end;
end;
procedure TForm5.Label58DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit58.ReadOnly=true then
begin
table1.Edit;
label58.Font.Color:=rgb(255,0,0);
editdbedit58.ReadOnly:=false;
end
else
begin
table1.Post;
label58.Font.Color:=rgb(0,0,0);
editdbedit58.ReadOnly:=true;
end;
end;
procedure TForm5.Label59DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit59.ReadOnly=true then
begin
table1.Edit;
label59.Font.Color:=rgb(255,0,0);
editdbedit59.ReadOnly:=false;
end
else
begin
table1.Post;
label59.Font.Color:=rgb(0,0,0);
editdbedit59.ReadOnly:=true;
end;
end;
procedure TForm5.Label60DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit60.ReadOnly=true then
begin
table1.Edit;
label60.Font.Color:=rgb(255,0,0);
editdbedit60.ReadOnly:=false;
end
else
begin
table1.Post;
label60.Font.Color:=rgb(0,0,0);
editdbedit60.ReadOnly:=true;
end;
end;
procedure TForm5.Label18DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit18.ReadOnly=true then
begin
table1.Edit;
label18.Font.Color:=rgb(255,0,0);
editdbedit18.ReadOnly:=false;
end
else
begin
table1.Post;
label18.Font.Color:=rgb(0,0,0);
editdbedit18.ReadOnly:=true;
end;
end;
procedure TForm5.Label49DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit49.ReadOnly=true then
begin
table1.Edit;
label49.Font.Color:=rgb(255,0,0);
editdbedit49.ReadOnly:=false;
end
else
begin
table1.Post;
label49.Font.Color:=rgb(0,0,0);
editdbedit49.ReadOnly:=true;
end;
end;
procedure TForm5.Label50DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit50.ReadOnly=true then
begin
table1.Edit;
label50.Font.Color:=rgb(255,0,0);
editdbedit50.ReadOnly:=false;
end
else
begin
table1.Post;
label50.Font.Color:=rgb(0,0,0);
editdbedit50.ReadOnly:=true;
end;
end;
procedure TForm5.Label22DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit22.ReadOnly=true then
begin
table1.Edit;
label22.Font.Color:=rgb(255,0,0);
editdbedit22.ReadOnly:=false;
end
else
begin
table1.Post;
label22.Font.Color:=rgb(0,0,0);
editdbedit22.ReadOnly:=true;
end;
end;
procedure TForm5.Label42DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit42.ReadOnly=true then
begin
table1.Edit;
label42.Font.Color:=rgb(255,0,0);
editdbedit42.ReadOnly:=false;
end
else
begin
table1.Post;
label42.Font.Color:=rgb(0,0,0);
editdbedit42.ReadOnly:=true;
end;
end;
procedure TForm5.Label43DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit43.ReadOnly=true then
begin
table1.Edit;
label43.Font.Color:=rgb(255,0,0);
editdbedit43.ReadOnly:=false;
end
else
begin
table1.Post;
label43.Font.Color:=rgb(0,0,0);
editdbedit43.ReadOnly:=true;
end;
end;
procedure TForm5.Label61DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit61.ReadOnly=true then
begin
table1.Edit;
label61.Font.Color:=rgb(255,0,0);
editdbedit61.ReadOnly:=false;
end
else
begin
table1.Post;
label61.Font.Color:=rgb(0,0,0);
editdbedit61.ReadOnly:=true;
end;
end;
procedure TForm5.Label62DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit62.ReadOnly=true then
begin
table1.Edit;
label62.Font.Color:=rgb(255,0,0);
editdbedit62.ReadOnly:=false;
end
else
begin
table1.Post;
label62.Font.Color:=rgb(0,0,0);
editdbedit62.ReadOnly:=true;
end;
end;
procedure TForm5.Label87DblClick(Sender: TObject);
begin
table1.Edit;
if dbedit2.ReadOnly=true then
begin
table1.Edit;
label87.Font.Color:=rgb(255,0,0);
dbedit2.ReadOnly:=false;
end
else
begin
table1.Post;
label87.Font.Color:=rgb(0,0,0);
dbedit2.ReadOnly:=true;
end;
end;
procedure TForm5.Label65DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit65.ReadOnly=true then
begin
table1.Edit;
label65.Font.Color:=rgb(255,0,0);
editdbedit65.ReadOnly:=false;
end
else
begin
table1.Post;
label65.Font.Color:=rgb(0,0,0);
editdbedit65.ReadOnly:=true;
end;
end;
procedure TForm5.Label63DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit63.ReadOnly=true then
begin
table1.Edit;
label63.Font.Color:=rgb(255,0,0);
editdbedit63.ReadOnly:=false;
end
else
begin
table1.Post;
label63.Font.Color:=rgb(0,0,0);
editdbedit63.ReadOnly:=true;
end;
end;
procedure TForm5.Label64DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit64.ReadOnly=true then
begin
table1.Edit;
label64.Font.Color:=rgb(255,0,0);
editdbedit64.ReadOnly:=false;
end
else
begin
table1.Post;
label64.Font.Color:=rgb(0,0,0);
editdbedit64.ReadOnly:=true;
end;
end;
procedure TForm5.Label67DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit67.ReadOnly=true then
begin
table1.Edit;
label67.Font.Color:=rgb(255,0,0);
editdbedit67.ReadOnly:=false;
end
else
begin
table1.Post;
label67.Font.Color:=rgb(0,0,0);
editdbedit67.ReadOnly:=true;
end;
end;
procedure TForm5.Label68DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit68.ReadOnly=true then
begin
table1.Edit;
label68.Font.Color:=rgb(255,0,0);
editdbedit68.ReadOnly:=false;
end
else
begin
table1.Post;
label68.Font.Color:=rgb(0,0,0);
editdbedit68.ReadOnly:=true;
end;
end;
procedure TForm5.Label69DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit69.ReadOnly=true then
begin
table1.Edit;
label69.Font.Color:=rgb(255,0,0);
editdbedit69.ReadOnly:=false;
end
else
begin
table1.Post;
label69.Font.Color:=rgb(0,0,0);
editdbedit69.ReadOnly:=true;
end;
end;
procedure TForm5.Label70DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit70.ReadOnly=true then
begin
table1.Edit;
label70.Font.Color:=rgb(255,0,0);
editdbedit70.ReadOnly:=false;
end
else
begin
table1.Post;
label70.Font.Color:=rgb(0,0,0);
editdbedit70.ReadOnly:=true;
end;
end;
procedure TForm5.Label71DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit71.ReadOnly=true then
begin
table1.Edit;
label71.Font.Color:=rgb(255,0,0);
editdbedit71.ReadOnly:=false;
end
else
begin
table1.Post;
label71.Font.Color:=rgb(0,0,0);
editdbedit71.ReadOnly:=true;
end;
end;
procedure TForm5.Label72Click(Sender: TObject);
begin
table1.Edit;
if editdbedit72.ReadOnly=true then
begin
table1.Edit;
label72.Font.Color:=rgb(255,0,0);
editdbedit72.ReadOnly:=false;
end
else
begin
table1.Post;
label72.Font.Color:=rgb(0,0,0);
editdbedit72.ReadOnly:=true;
end;
end;
procedure TForm5.Label44DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit44.ReadOnly=true then
begin
table1.Edit;
label44.Font.Color:=rgb(255,0,0);
editdbedit44.ReadOnly:=false;
end
else
begin
table1.Post;
label44.Font.Color:=rgb(0,0,0);
editdbedit44.ReadOnly:=true;
end;
end;
procedure TForm5.Label23DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit23.ReadOnly=true then
begin
table1.Edit;
label23.Font.Color:=rgb(255,0,0);
editdbedit23.ReadOnly:=false;
end
else
begin
table1.Post;
label23.Font.Color:=rgb(0,0,0);
editdbedit23.ReadOnly:=true;
end;
end;
procedure TForm5.Label24DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit24.ReadOnly=true then
begin
table1.Edit;
label24.Font.Color:=rgb(255,0,0);
editdbedit24.ReadOnly:=false;
end
else
begin
table1.Post;
label24.Font.Color:=rgb(0,0,0);
editdbedit24.ReadOnly:=true;
end;
end;
procedure TForm5.Label25DblClick(Sender: TObject);
begin
table1.Edit;
if editdbedit25.ReadOnly=true then
begin
table1.Edit;
label25.Font.Color:=rgb(255,0,0);
editdbedit25.ReadOnly:=false;
end
else
begin
table1.Post;
label25.Font.Color:=rgb(0,0,0);
editdbedit25.ReadOnly:=true;
end;
end;
procedure TForm5.Label27DblClick(Sender: TObject);
begin
table1.Edit;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -