tichengfrm.pas

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

unit TiChengfrm;

interface

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

type
  TTiChengForm = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn5: TBitBtn;
    Label6: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TiChengForm: TTiChengForm;

implementation
uses DataModule1;

{$R *.dfm}

procedure TTiChengForm.FormShow(Sender: TObject);
begin
    DateTimepicker1.Date :=Date;
    ComboBox1.Text :='';
    GetComboBoxitem(ComboBox1);
end;

procedure TTiChengForm.BitBtn1Click(Sender: TObject);
begin
   try
     DM.Database1.StartTransaction;
     With DM.qryTicheng do
     begin
        Close;
        SQL.Clear;
        SQL.Add('insert Ticheng(T_date,T_Man,T_Reason,T_Depart)');
        SQL.Add('values(:varDate,:varMan,:varReason,:varDepart)');
        Params[0].AsDateTime:=DateTimePicker1.Date;
        Params[1].AsString :=ComboBox1.Text;
        Params[2].AsString :=Memo1.Text;
        Params[3].AsString :=DM.GetManinfo(ComboBox1.Text).MDepart;
        ExecSQL;
     end;
     DM.Database1.Commit;
     MessageBox(Application.Handle,'保存成功！',
       '提示',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL);
   except
     DM.Database1.Rollback;
   end;

end;

end.