shoushifrm.pas

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

unit Shoushifrm;

interface

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

type
  TShouShiForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    Label8: TLabel;
    Edit3: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    procedure ClearFields;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShouShiForm: TShouShiForm;

implementation
uses DataModule1;

{$R *.dfm}

{ TShouShiForm }

procedure TShouShiForm.ClearFields;
begin

   ComboBox2.Text :='';
   ComboBox3.Text :='';
   ComboBox4.Text :='';
   ComboBox5.Text :='';
   Edit1.Text:='';
   Edit2.Text :='';
   Edit3.Text :='';
end;

procedure TShouShiForm.FormShow(Sender: TObject);
begin
    ClearFields;
    with DM.TBSysParams do
    begin
       Open;
       First;
       while not eof do
       begin
          ComboBox2.Items.Add(FieldByName('ProjName').AsString);
          Next;
       end;
       Close;
    end;
    
    
end;

procedure TShouShiForm.BitBtn2Click(Sender: TObject);
var
  ss:String;
begin
   SS:='';
   if not isTime(Edit3.Text) then SS:=ErrTime;
   if not isFloat(Edit2.Text) then SS:=ErrFloat;
   if SS<>'' then
   begin
      MessageBox(Application.Handle,Pchar(SS),
        '提示',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL);
      exit;
   end;
   
   try
   DM.Database1.StartTransaction;
    with DM.qryShoushi do
    begin
       Close;
       SQL.Clear;
       SQL.Add('Insert into shoushilv(S_Date,S_Month,S_ProjName,S_Channel,S_Mode,S_Time,S_Ontime,S_Dot) Values(:varDate,:varMonth,:varProjName,:varChannel,:varMode,:varTime,:varOntime,:varDot)');
       Params[0].AsString:=Edit1.Text;
       Params[1].AsString:=CurrentMonth;
       Params[2].AsString:=ComboBox2.Text;
       Params[3].AsString:=ComboBox3.Text;
       Params[4].AsString:=Combobox4.Text;
       Params[5].AsString:=Edit3.Text;
       Params[6].AsString:=Combobox5.Text;
       Params[7].AsFloat:=StrToFloat(Edit2.Text);
       execSQL;
       Close;
       SQL.Clear;
       SQL.Add('Select * from shoushilv');
       SQL.Add('where S_Date=:vardate');
       params[0].AsString :=Edit1.Text;
       Open;
    end;
   DM.Database1.Commit;
   Edit2.Text :='';
   Edit3.Text :='';
   Except
     DM.Database1.Rollback;
   end;
end;

end.