dateunit.pas

不可多得的大型公司公资管理系统软件.该系统用DELPHI来实现.

unit Dateunit;

interface

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

type
  TDateR = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    UpDown1: TUpDown;
    Label2: TLabel;
    Edit4: TEdit;
    UpDown2: TUpDown;
    Label3: TLabel;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DateR: TDateR;

implementation

uses gzdata, PassWordUnit, GzKqSrUnit;

{$R *.DFM}

procedure TDateR.FormShow(Sender: TObject);
begin
   maskedit1.Text:=password.MaskEdit1.Text;
   edit4.Text:=inttostr(strtoint(password.Edit4.text));
   maskedit1.SetFocus;
end;

procedure TDateR.BitBtn1Click(Sender: TObject);
var ddd,ts:string;
begin

   ddd:='';
   ddd:=inttostr(strtoint(maskedit1.Text))+'-'+inttostr(strtoint(edit4.Text));
   data.Query1.Close;
   with data.Query1.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
   end;
   data.Query1.Open;
  if data.Query1.IsEmpty then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新选择日期或重新产生本月数据';
   application.MessageBox(pchar(ts),'提示',mb_ok+mb_iconinformation);
   abort;
   end;
    data.Query1.Close;
   with data.Query1.SQL do
   begin
      clear;
      add('select sum(jt_yb_d1),sum(jb_yb_d2) from lyk');
      add('where riqi='''+ddd+'''');
   end;
    data.Query1.Open;
   if data.Query1.IsEmpty then
// if (data.Query1.fields[0].asfloat=0) and (data.Query1.fields[0].asfloat=0) then
   begin
   ts:='';
   ts:='不存在'+ddd+'数据,请重新选择日期或重新产生本月数据';
   application.MessageBox(pchar(ts),'提示',mb_ok+mb_iconinformation);
   abort;
   end
   else
   begin
   ts:='';
  if( (data.Query1.fields[0].asfloat>0) or (  data.Query1.fields[1].asfloat>0)) then
       begin
       ts:=ddd+'月 已有 <夜班0.8元>'+floattostr(data.Query1.fields[0].asfloat)+'个'+
       '<夜班1.4元>'+floattostr(data.Query1.fields[1].asfloat)+'个 ,继续进行吗?';
       IF  (application.messagebox(pchar(ts),'消息框',mb_okcancel+mb_defbutton1+mb_iconquestion)
        =idok) then
       close
       else
       abort;
       end;

//列出本月数据
  ddd:='';
  ddd:=inttostr(strtoint(maskedit1.Text))+'-'+inttostr(strtoint(edit4.Text));
  data.Query1.Close;
   with data.Query1.SQL do
   begin
      clear;
      add('select * from lyk');
      add('where riqi='''+ddd+'''');
   end;
    data.Query1.Open;
//       showmessage('gdgdf');
  end;
  //  if gzsr=nil then
   Application.CreateForm(Tgzsr, gzsr);
   gzsr.showmodal;
   gzsr.Hide;
   gzsr.Release;
end;
procedure TDateR.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;


end.