ugetdateone.pas

DELPHI做的制衣厂管理系统,功能完善,可能马上使用,SQL2000数据库

unit uGetDateOne;

interface

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

type
  TfrmGetDateOne = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Bevel1: TBevel;
    dt_Picker1: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    LabeledEdit1: TLabeledEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dt_Picker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
     procedure pdSetMemoText;
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

uses uMain, uReport, uGlobal, uPublic;

{$R *.dfm}

procedure TfrmGetDateOne.pdSetMemoText;
begin
   memo1.Lines.Clear;
   case tag of
      1,2:begin
           memo1.Lines.Add('结帐前请认真阅读：');
           memo1.Lines.Add('    1.结帐是对一个月来的业务数据进行统计');
           memo1.Lines.Add('    2.该月结帐后，你仍可以录入单据，但必须重新结帐。');
           memo1.Lines.Add('    3.请确定月份并确定,你准备好了吗？');
           speedbutton1.Caption := '结帐/开始';
           label1.Caption := '结帐统计的月份：';
           labeledEdit1.Visible := false;
        end;
      22,32,42:begin
           memo1.Lines.Add('打印前请认真阅读：');
           memo1.Lines.Add('    1.将要打印的月份必须已经结帐');
           memo1.Lines.Add('    2.打印机是否已经准备好,打印纸为A4。');
           memo1.Lines.Add('    3.请确定月份并确定,你准备好了吗？');
           speedbutton1.Caption := '打印/开始';
           label1.Caption := '打印的月份：';
           labeledEdit1.EditLabel.Caption := '产品类别：';
           labeledEdit1.Visible := true;
        end;
   end;
end;

procedure TfrmGetDateOne.SpeedButton1Click(Sender: TObject);
var iyea,imon: integer;
begin
   iyea := yearOf(dt_picker1.date);
   imon := monthof(dt_picker1.date);
   try
      CASE tag Of
         1:begin
              if frmMain.DCOMCn.AppServer.IAccountBookTotal(iyea,imon,dt_picker1.Date,'CK') = 1 then
                 infoWnd('该月结帐统计成功，可以出报表了！');
           end;

         2:begin
              if frmMain.DCOMCn.AppServer.IAccountBookTotal(iyea,imon,dt_picker1.Date,'CW') = 1 then
                 infoWnd('该月结帐统计成功，可以出报表了！');
           end;
        22:Begin
              frmMain.cdPub.Close;
              frmMain.cdPub.CommandText := 'Execute p_GetStockMonth @ddate = '+
                                           quotedStr(formatdatetime('yyyy-MM-dd',dt_picker1.Date)) +
                                           ',@clb = '+quotedStr(labeledEdit1.Text);
              frmMain.cdPub.Open;
              frmReport.ReportS(22, 0, '', frmMain.cdPub.Data);                             
           end;
       32:Begin
              frmMain.cdPub.Close;
              frmMain.cdPub.CommandText := 'Execute p_GetHGoodsMonth @ddate = '+
                                           quotedStr(formatdatetime('yyyy-MM-dd',dt_picker1.Date)) +
                                           ',@clb = '+quotedStr(labeledEdit1.Text);
              frmMain.cdPub.Open;
              frmReport.ReportS(32, 0, '', frmMain.cdPub.Data);
           end;
       42:Begin
              frmMain.cdPub.Close;
              frmMain.cdPub.CommandText := 'Execute p_GetGoodsMonth @ddate = '+
                                           quotedStr(formatdatetime('yyyy-MM-dd',dt_picker1.Date)) +
                                           ',@clb = '+quotedStr(labeledEdit1.Text);
              frmMain.cdPub.Open;
              frmReport.ReportS(42, 0, '', frmMain.cdPub.Data);
           end;
        52:Begin
              frmMain.cdPub.Close;
              frmMain.cdPub.CommandText := 'Execute p_GetGoodsMonth @ddate = '+
                                           quotedStr(formatdatetime('yyyy-MM-dd',dt_picker1.Date)) +
                                           ',@clb = '+quotedStr(labeledEdit1.Text);
              frmMain.cdPub.Open;
              frmReport.ReportS(52, 0, '', frmMain.cdPub.Data);
           end;
      END;
   finally
      if (tag = 1) OR (Tag = 2) then
         close;
   end;
end;

procedure TfrmGetDateOne.SpeedButton2Click(Sender: TObject);
begin
   close;
end;

procedure TfrmGetDateOne.FormShow(Sender: TObject);
begin
   try
      dt_picker1.Format := 'yyyy年MM月';
      dt_Picker1.Date := date;
      pdSetMemoText;
   except
   end; 
end;

procedure TfrmGetDateOne.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (key=vk_return) and (ssCtrl in shift) then
      SpeedButton1Click(nil)
   else
   if key=vk_escape then
      speedbutton2Click(nil);
end;

procedure TfrmGetDateOne.dt_Picker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case key of
      vk_return : if LabeledEdit1.CanFocus Then
                     LabeledEdit1.SetFocus; 
   end;
end;

end.