ccunit.pas

龙矿集团工资管理系统2004源码

unit CcUnit;

interface

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

type
  TCcForm = class(TForm)
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    memo1: TRichEdit;
    BitBtn3: TBitBtn;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    BitBtn4: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CcForm: TCcForm;

implementation

uses DataTUnit;

{$R *.DFM}


procedure TCcForm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TCcForm.BitBtn1Click(Sender: TObject);
begin
    screen.cursor:=crhourglass;
    memo1.Clear;
    memo1.Lines.Add(datetimetostr(now)+'开始检查');
    if checkbox1.Checked then
    begin
        with datat.UnitTable1 do
        begin
        Close;
        Open;
        while not eof do
            begin
            if Length(FieldByName('unitno').AsString)<2 then
            memo1.Lines.Add('单位库：单位代码--〉'+FieldByName('unitno').AsString+'长度错误，应为两位');
            if Length(FieldByName('unitname').AsString)=0 then
            memo1.Lines.Add('单位库：单位名称--〉'+FieldByName('unitname').AsString+'长度错误，应大于零');
            Next;
            end;
        end;
        datat.UnitTable1.Close;
    end;

//部门库
if checkbox2.Checked then
    begin
        with datat.BmTable2 do
        begin
        Close;
        Open;
        while not eof do
        begin
            if Length(FieldByName('unitno').AsString)<2 then
            memo1.Lines.Add('部门库：单位代码--〉'+FieldByName('unitno').AsString+' 长度错误，应为两位');
            if Length(FieldByName('bmname').AsString)=0 then
            memo1.Lines.Add('部门库：单位名称--〉'+FieldByName('bmname').AsString+'长度错误，应大于零');
            if (Length(FieldByName('bmno').AsString)<>5)   then
            memo1.Lines.Add('部门库：部门代码--〉'+FieldByName('bmno').AsString+'部门名称:  '+FieldByName('bmname').AsString+'长度错误，应为五位');
            Next;
         end;
        end;
        datat.BmTable2.Close;
    end;
 //基本资料
 if checkbox3.Checked then
    begin
        with datat.Table4 do
        begin
        Close;
        Open;
        datat.table4.DisableControls;
        while not eof do
        begin
            if Length(FieldByName('code').AsString)=0 then
            memo1.Lines.Add('基本资料库：编号--〉'+FieldByName('code').AsString+'长度错误，应为5位');
            if Length(FieldByName('name').AsString)=0 then
            memo1.Lines.Add('基本资料库：姓名--〉'+FieldByName('name').AsString+'长度错误，应大于零');
            if (Length(FieldByName('bmno').AsString)<>5)   then
            memo1.Lines.Add('基本资料库：部门代码--〉'+FieldByName('name').AsString+FieldByName('bmno').AsString+'长度错误，应为五位');
             if Length(FieldByName('rysx').AsString)=0 then
            memo1.Lines.Add('基本资料库：人员属性--〉'+FieldByName('name').AsString+FieldByName('rysx').AsString+'长度错误，应大于零');
            if Length(FieldByName('sex').AsString)=0 then
            memo1.Lines.Add('基本资料库：性别--〉'+FieldByName('name').AsString+FieldByName('sex').AsString+'长度错误，应大于零');
            if (Length(FieldByName('tj').AsString)=0)   then
            memo1.Lines.Add('基本资料库：人员属性2--〉'+FieldByName('name').AsString+FieldByName('tj').AsString+'长度错误，应大于零');

            Next;
         end;
        end;
        datat.table4.EnableControls;
        datat.table4.Close;
    end;
 //历月库
  if checkbox4.Checked then
    begin
        with datat.Table1 do
    begin
        Close;
        Open;
        datat.table1.DisableControls;
        while not eof do
        begin
            if Length(FieldByName('code').AsString)=0 then
            memo1.Lines.Add('历月库：编号--〉'+FieldByName('name').AsString+FieldByName('code').AsString+FieldByName('riqi').AsString+'   长度错误，应为5位');
            if Length(FieldByName('name').AsString)=0 then
            memo1.Lines.Add('历月库：姓名--〉'+FieldByName('name').AsString+FieldByName('riqi').AsString+'长度错误，应大于零');
            if (Length(FieldByName('bmno').AsString)<>5)   then
            memo1.Lines.Add('历月库：部门代码--〉'+FieldByName('name').AsString+FieldByName('bmno').AsString+FieldByName('riqi').AsString+'长度错误，应为五位');
             if Length(FieldByName('rysx').AsString)=0 then
            memo1.Lines.Add('历月库：人员属性--〉'+FieldByName('name').AsString+FieldByName('rysx').AsString+FieldByName('riqi').AsString+'长度错误，应大于零');
            if Length(FieldByName('sex').AsString)=0 then
            memo1.Lines.Add('历月库：性别--〉'+FieldByName('name').AsString+FieldByName('sex').AsString+FieldByName('riqi').AsString+'长度错误，应大于零');
            if (Length(FieldByName('tj').AsString)=0)   then
            memo1.Lines.Add('历月库：人员属性2--〉'+FieldByName('name').AsString+FieldByName('tj').AsString+FieldByName('riqi').AsString+'长度错误，应大于零');

            Next;
         end;

   end;
        datat.table1.EnableControls;
        datat.table1.Close;
 end;

    memo1.Lines.Add(datetimetostr(now)+'检查完毕！！！');
    screen.cursor:=crdefault;
end;



procedure TCcForm.BitBtn3Click(Sender: TObject);
begin
  if SAVEDIALOG1.Execute then
  memo1.Lines.SaveToFile(savedialog1.FileName);
end;


procedure TCcForm.BitBtn4Click(Sender: TObject);
begin
try
 if OPENDIALOG1.Execute then
   shellexecute(Handle,nil,PChar(opendialog1.FileName),'','',SW_SHOW);
except
   Application.MessageBox('您的计算机不存在NOTEPAD.EXE或者WINWORD软件！！！请安装！！！','提示框',mb_ok+mb_iconstop);
   abort;
end;
end;

end.