auto_dzunit.pas

使用delphi语言

unit auto_dzunit;

interface

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

type
  Tauto_dzform = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    c: TADOCommand;
    spinedit2: TMaskEdit;
    spinedit1: TMaskEdit;
    BitBtn3: TBitBtn;
    procedure SpinEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpinEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpinEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  auto_dzform: Tauto_dzform;

implementation
 uses dmunit;
{$R *.dfm}

procedure Tauto_dzform.SpinEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tauto_dzform.BitBtn1Click(Sender: TObject);
var y:string;
begin
  y:=self.SpinEdit1.Text+'年'+self.SpinEdit2.Text+'月数据已存在';
  dm.detail.Close;
  dm.detail.CommandText:='select * from 明细表 where 年=:y and 月=:m and 摘要=''存入''';
  dm.detail.Parameters.ParamByName('y').Value:=self.SpinEdit1.Text ;
  dm.detail.Parameters.ParamByName('m').Value:=self.SpinEdit2.Text ;
  dm.detail.Open ;
  if dm.detail.RecordCount>0 then
  begin
    messagebox(self.Handle,pchar(y),'提示信息',mb_iconinformation);
    exit;
  end;
  c.CommandText:='insert 明细表(职工编号,账号,职工姓名,个人系数,单位系数,总系数) '+
                  'select 职工编号,账号,职工姓名,个人系数,单位系数,总系数 from 系数表 where 类型=''1'' ';
  c.Execute ;
  c.CommandText:='update 明细表 set 摘要=''存入'',类别=''1'',年=:year,月=:month where 摘要=''''';
  c.Parameters.ParamByName('year').Value:=SpinEdit1.Text ;
  c.Parameters.ParamByName('month').Value:=SpinEdit2.Text ;
  c.Execute ;
  messagebox(self.Handle,'自动登账成功完成！','提示信息',mb_iconinformation);
  dm.detail.Active:=false;//关闭detail
  close;
end;

procedure Tauto_dzform.BitBtn2Click(Sender: TObject);
begin
  dm.detail.Active:=false;  //关闭detail
  close;
end;

procedure Tauto_dzform.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    self.SpinEdit2.SetFocus ;
end;

procedure Tauto_dzform.SpinEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
    bitbtn3.SetFocus ;
end;

procedure Tauto_dzform.BitBtn3Click(Sender: TObject);
begin
  if length(trim(spinedit2.Text))<>2 then
  begin
    messagebox(self.Handle,'请正确填写日期','提示信息',mb_iconinformation);
    exit;
  end;
  if (strtoint(self.spinedit1.Text)>3000 )or (strtoint(self.spinedit2.Text)<1 )or (strtoint(self.spinedit2.Text)>12 )or(strtoint(self.spinedit1.Text)<1900 )  then
  begin
    messagebox(self.Handle,'请正确填写日期','提示信息',mb_iconinformation);
    exit;
  end;
  bitbtn1.Click ;
end;

end.