📄 unitcomment.pas
字号:
unit unitComment;
interface
uses
Windows,Classes;
procedure SqlGongZhong;//工种
procedure SqlJBLB; //加班类别
procedure SqlQQLB; //缺勤类别
implementation
uses datamodule;
procedure SqlGongZhong;
begin
dm.qrygongzhong.Close;
dm.qrygongzhong.SQL.Clear;
dm.qrygongzhong.SQL.Add('select * from gz');
dm.qrygongzhong.Open;
end;
procedure SqlJBLB;
begin
dm.qryJBLB.Close;
dm.qryJBLB.SQL.Clear;
dm.qryJBLB.SQL.Add('select * from jblb');
dm.qryJBLB.Open;
end;
procedure SqlQQLB;
begin
dm.qryQQLB.Close;
dm.qryQQLB.SQL.Clear;
dm.qryQQLB.SQL.Add('select * from qqlb');
dm.qryQQLB.Open;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -