applyfrm.pas

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

unit Applyfrm;

interface

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

type
  TApplyForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    BitBtn5: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    Image1: TImage;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DateTimePicker2: TDateTimePicker;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox4: TComboBox;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DateTimePicker3: TDateTimePicker;
    Edit5: TEdit;
    ComboBox5: TComboBox;
    Edit6: TEdit;
    ComboBox6: TComboBox;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DateTimePicker4: TDateTimePicker;
    Edit7: TEdit;
    ComboBox7: TComboBox;
    Edit8: TEdit;
    ComboBox8: TComboBox;
    Label8: TLabel;
    Label21: TLabel;
    Edit9: TEdit;
    Memo1: TMemo;
    Label22: TLabel;
    ComboBox3: TComboBox;
    procedure TabSheet4Show(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    function SaveApplyNotebook:boolean;
    function SaveApplyCD:boolean;
    function SaveApplyEditor:boolean;
    function SaveApplySeal:Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ApplyForm: TApplyForm;

  procedure ShowApplyForm(Item:Byte);

implementation
uses DataModule1;

{$R *.dfm}

procedure ShowApplyForm(Item:Byte);
begin
   ApplyForm:=TApplyForm.Create(Application);
   try
     ApplyForm.PageControl1.ActivePageIndex:=Item;
     ApplyForm.showmodal;
   finally
     ApplyForm.Free;
   end;
end;

procedure TApplyForm.TabSheet1Show(Sender: TObject);
begin
   Image1.Parent :=Tabsheet1;
   Image1.Picture.LoadFromFile('.\res\Notebook.Gif');
   GetComboBoxItem(ComboBox1);
   GetComboBoxItem(ComboBox2);
   
end;

procedure TApplyForm.TabSheet2Show(Sender: TObject);
begin
   Image1.Parent :=Tabsheet2;
   Image1.Picture.LoadFromFile('.\res\Record.Gif');
   GetComboBoxItem(ComboBox3);
   GetComboBoxItem(ComboBox4);

end;

procedure TApplyForm.TabSheet3Show(Sender: TObject);
begin
   Image1.Parent :=Tabsheet3;
   Image1.Picture.LoadFromFile('.\res\CDWriter.Gif');
   GetComboBoxItem(ComboBox5);
   GetComboBoxItem(ComboBox6);

end;

procedure TApplyForm.TabSheet4Show(Sender: TObject);
begin
    Image1.Parent :=Tabsheet4;
    Image1.Picture.LoadFromFile('.\res\Seal.Gif');
    GetComboBoxItem(ComboBox7);
    GetComboBoxItem(ComboBox8);
end;

procedure TApplyForm.FormShow(Sender: TObject);
var
  I:Byte;
begin
   for I:=0 to (ComponentCount-1) do
   begin
       if Components[I] is TEdit then TEdit(Components[I]).Text :='';
       if Components[I] is TComboBox then TComboBox(Components[I]).Text :='';
   end;
   ComboBox1.Text :=CurrentWorker;
   ComboBox3.Text :=CurrentWorker;
   ComboBox5.Text :=CurrentWorker;
   ComboBox7.Text :=CurrentWorker;
end;

procedure TApplyForm.BitBtn1Click(Sender: TObject);
var
   Vict:Boolean;
begin
    Vict:=False;
    case PageControl1.ActivePageIndex of
    0:Vict:=SaveApplyNotebook;
    1:Vict:=SaveApplyEditor;
    2:Vict:=SaveApplyCD;
    3:Vict:=SaveApplySeal;
    end;
    if Vict then  MessageBox(Application.Handle,'保存成功！',
    '提示',MB_OK+MB_ICONINFORMATION+MB_SYSTEMMODAL)
    else  MessageBox(Application.Handle,pchar(ErrAct),
    '提示',MB_OK+MB_ICONERROR+MB_SYSTEMMODAL);
end;

function TApplyForm.SaveApplyNotebook: boolean;
begin
   try
      DM.Database1.StartTransaction;
      with DM.qryApply do
      begin
      Close;
      SQL.Clear;
      SQL.Add('Insert into ApplyNotebook(A_Date,A_Client,A_ApplyMan,A_Depart,A_Money,A_ManageMan)');
      SQL.Add('values(:varDate,:varClient,:varApplyMan,:varDepart,:varMoney,:varManageMan)');
      Params[0].AsDateTime :=DateTimePicker1.Date;
      Params[1].AsString :=Edit1.Text;
      Params[2].AsString :=ComboBox1.Text;
      Params[3].AsString :=DM.getManinfo(ComboBox1.Text).MDepart;
      Params[4].Asfloat:=StrToFloat(Edit2.Text);
      Params[5].AsString :=ComboBox2.Text;
      ExecSQL;
      end;
      Result:=True;
      DM.Database1.Commit;
   except
      Result:=False;
      DM.Database1.Rollback;
   end;

end;

function TApplyForm.SaveApplyCD: boolean;
begin
   try
   DM.Database1.StartTransaction;
   with DM.qryApply do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Insert into ApplyCD(A_Date,A_Client,A_ApplyMan,A_Depart,A_Money,A_ManageMan)');
      SQL.Add('values(:varDate,:varClient,:varApplyMan,:varDepart,:varMoney,:varManageMan)');
      ParamByName('varDate').AsDateTime :=DateTimePicker3.Date;
      ParamByName('varClient').AsString :=Edit5.Text;
      ParamByName('varApplyMan').AsString :=ComboBox5.Text;
      ParamByName('varDepart').AsString :=DM.getManinfo(ComboBox5.Text).MDepart;
      ParamByName('varMoney').Asfloat:=StrToFloat(Edit6.Text);
      ParamByName('varManageMan').AsString :=ComboBox6.Text;
      ExecSQL;
   end;
   Result:=True;
   DM.Database1.Commit;
   except
   Result:=False;
   DM.Database1.Rollback;
   end;
end;

function TApplyForm.SaveApplyEditor: boolean;
begin
   try
   DM.Database1.StartTransaction;
   with DM.qryApply do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Insert into ApplyEditor(A_Date,A_Client,A_ApplyMan,A_Depart,A_ScreenMoney,A_EditMoney,A_ManageMan,A_Request)');
      SQL.Add('values(:varDate,:varClient,:varApplyMan,:varDepart,:varScreenMoney,:varEditMoney,:varManageMan,:varRequest)');
      ParamByName('varDate').AsDateTime :=DateTimePicker2.Date;
      ParamByName('varClient').AsString :=Edit3.Text;
      ParamByName('varApplyMan').AsString :=ComboBox3.Text;
      ParamByName('varDepart').AsString :=DM.getManinfo(ComboBox3.Text).MDepart;
      ParamByName('varScreenMoney').Asfloat:=StrToFloat(Edit4.Text);
      ParamByName('varEditMoney').Asfloat :=StrToFloat(Edit9.Text);
      ParamByName('varManageMan').AsString :=ComboBox4.Text;
      ParamByName('varRequest').AsString :=Memo1.Text;
      ExecSQL;
   end;
   Result:=True;
   DM.Database1.Commit;
   except
   Result:=False;
   DM.Database1.Rollback;
   end;
end;



function TApplyForm.SaveApplySeal: Boolean;
begin
   try
   DM.Database1.StartTransaction;
   with DM.qryApply do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Insert into ApplySeal(A_Date,A_SealName,A_ApplyMan,A_Depart,A_Reason,A_ManageMan)');
      SQL.Add('values(:varDate,:varSealName,:varApplyMan,:varDepart,:varReason,:varManageMan)');
      ParamByName('varDate').AsDateTime :=DateTimePicker4.Date;
      ParamByName('varSealName').AsString :=Edit7.Text;
      ParamByName('varApplyMan').AsString :=ComboBox7.Text;
      ParamByName('varDepart').AsString :=DM.getManinfo(ComboBox7.Text).MDepart;
      ParamByName('varReason').AsString:=Edit8.Text;
      ParamByName('varManageMan').AsString :=ComboBox8.Text;
      ExecSQL;
   end;
   Result:=True;
   DM.Database1.Commit;
   except
   Result:=False;
   DM.Database1.Rollback;
   end;
end;

end.