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.