qrygridfrm.pas

结合读卡器使用。程序中有按迟到时间长短自动开罚单功能

unit QryGridfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Buttons;

type
  TQryGridForm = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn5: TBitBtn;
    procedure FormShow(Sender: TObject);
    
  private
    procedure ShowInvoice;
    procedure ShowWorker;
    procedure ShowPrize;
    procedure ShowJiangfa;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QryGridForm: TQryGridForm;

implementation
uses DataModule1;

{$R *.dfm}

procedure TQryGridForm.FormShow(Sender: TObject);
begin
   if CurrentQry='开票' then ShowInvoice;
   if CurrentQry='员工' then ShowWorker;
   if CurrentQry='奖品' then ShowPrize;
   if CurrentQry='奖罚单' then ShowJiangfa;
end;

procedure TQryGridForm.ShowJiangfa;
begin
    with DBGrid1 do
   begin
       DataSource:=DM.DSJiangFa;
       Columns[0].FieldName:='F_Object';
       Columns[1].FieldName:='F_JorF';
       Columns[2].FieldName:='F_Name';
       Columns[3].FieldName:='F_Date';
       Columns[4].FieldName:='F_Number';
       Columns[5].FieldName:='F_Depart';
       Columns[6].FieldName:='F_Memo';
       Columns[7].FieldName:='';
       Columns[8].FieldName:='';
       Columns[9].FieldName:='';

       Columns[0].Title.Caption:='奖罚单名称';
       Columns[1].Title.Caption:='奖罚类别';
       Columns[2].Title.Caption:='受奖罚人';
       Columns[3].Title.Caption:='奖罚日期';
       Columns[4].Title.Caption:='奖罚金额';
       Columns[5].Title.Caption:='部门';
       Columns[6].Title.Caption:='简介';
       Columns[7].Title.Caption:='';
       Columns[8].Title.Caption:='';
       Columns[9].Title.Caption:='';

       Columns[0].Width :=180;
       Columns[1].Width :=60;
       Columns[2].Width :=80;
       Columns[3].Width :=80;
       Columns[4].Width :=100;
       Columns[5].Width :=80;
       Columns[6].Width :=360;
       Columns[7].Width :=0;
       Columns[8].Width :=0;
       Columns[9].Width :=0;
   end;
    with DM.qryJiangFa do
    begin
       Close;
       SQL.Clear;
       SQL.Add('Select * from JiangFa');
       Open;
    end;
end;

procedure TQryGridForm.ShowInvoice;
begin

   with DBGrid1 do
   begin
       DataSource:=DM.DSInvoice;
       Columns[0].FieldName:='I_ProjName';
       Columns[1].FieldName:='I_Date';
       Columns[2].FieldName:='I_InvoiceMan';
       Columns[3].FieldName:='I_InvoiceName';
       Columns[4].FieldName:='I_ADMoney';
       Columns[5].FieldName:='I_InvoiceMoney';
       Columns[6].FieldName:='I_FirstTax';
       Columns[7].FieldName:='I_OverMoney';
       Columns[8].FieldName:='I_OverTax';
       Columns[9].FieldName:='I_ActTax';

       Columns[0].Title.Caption:='栏目名';
       Columns[1].Title.Caption:='开票日期';
       Columns[2].Title.Caption:='开票名称';
       Columns[3].Title.Caption:='开票人';
       Columns[4].Title.Caption:='广告金额';
       Columns[5].Title.Caption:='发票金额';
       Columns[6].Title.Caption:='应交税金';
       Columns[7].Title.Caption:='超出金额';
       Columns[8].Title.Caption:='超出税金';
       Columns[9].Title.Caption:='实际税金';

       Columns[0].Width :=180;
       Columns[1].Width :=60;
       Columns[2].Width :=240;
       Columns[3].Width :=60;
       Columns[4].Width :=60;
       Columns[5].Width :=60;
       Columns[6].Width :=60;
       Columns[7].Width :=60;
       Columns[8].Width :=60;
       Columns[9].Width :=60;
   end;
    with DM.qryInvoice do
    begin
       Close;
       SQL.Clear;
       SQL.Add('Select * from Invoice');
       Open;
    end;
end;

procedure TQryGridForm.ShowPrize;
begin
   with DBGrid1 do
    begin
       DataSource:=DM.DSPrize;
       Columns[0].FieldName:='G_Date';
       Columns[1].FieldName:='G_ManName';
       Columns[2].FieldName:='G_ManCode';
       Columns[3].FieldName:='G_ManAddress';
       Columns[4].FieldName:='G_Goods';
       Columns[5].FieldName:='G_Cash';
       Columns[6].FieldName:='G_ManageMan';
       Columns[7].FieldName:='';
       Columns[8].FieldName:='';
       Columns[9].FieldName:='';

       Columns[0].Title.Caption:='发放日期';
       Columns[1].Title.Caption:='领奖人姓名';
       Columns[2].Title.Caption:='领奖人身份证';
       Columns[3].Title.Caption:='领奖人住址';
       Columns[4].Title.Caption:='实物奖品';
       Columns[5].Title.Caption:='现金奖品';
       Columns[6].Title.Caption:='发放人';
       Columns[7].Title.Caption:='';
       Columns[8].Title.Caption:='';
       Columns[9].Title.Caption:='';

       Columns[0].Width :=80;
       Columns[1].Width :=80;
       Columns[2].Width :=240;
       Columns[3].Width :=270;
       Columns[4].Width :=180;
       Columns[5].Width :=60;
       Columns[6].Width :=60;
       Columns[7].Width :=0;
       Columns[8].Width :=0;
       Columns[9].Width :=0;

    end;
    with DM.qryPrize do
    begin
       Close;
       SQL.Clear;
       SQL.Add('Select * from GivePrize');
       Open;
    end;
end;

procedure TQryGridForm.ShowWorker;
begin
    with DBGrid1 do
    begin
       DataSource:=DM.DSWorker;
       Columns[0].FieldName:='M_No';
       Columns[1].FieldName:='M_Name';
       Columns[2].FieldName:='M_Age';
       Columns[3].FieldName:='M_Sex';
       Columns[4].FieldName:='M_Department';
       Columns[5].FieldName:='M_Tel';
       Columns[6].FieldName:='M_Address';
       Columns[7].FieldName:='M_Password';
       Columns[8].FieldName:='M_Lev';
       Columns[9].FieldName:='M_WorkDate';

       Columns[0].Title.Caption:='卡号';
       Columns[1].Title.Caption:='姓名';
       Columns[2].Title.Caption:='年龄';
       Columns[3].Title.Caption:='性别';
       Columns[4].Title.Caption:='部门';
       Columns[5].Title.Caption:='电话';
       Columns[6].Title.Caption:='地址';
       Columns[7].Title.Caption:='密码';
       Columns[8].Title.Caption:='权限';
       Columns[9].Title.Caption:='上岗时间';

       Columns[0].Width :=80;
       Columns[1].Width :=60;
       Columns[2].Width :=40;
       Columns[3].Width :=40;
       Columns[4].Width :=80;
       Columns[5].Width :=180;
       Columns[6].Width :=270;
       Columns[7].Width :=80;
       Columns[8].Width :=40;
       Columns[9].Width :=60;
       if CurrentLev=2 then Columns[7].Visible :=True else Columns[7].Visible:=False;
    end;
    with DM.qryWorker do
    begin
       Close;
       SQL.Clear;
       SQL.Add('Select * from Worker');
       Open;
    end;

end;

end.