stock_report.pas

delphi的一个开发实例

unit Stock_Report;

interface

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

type
  Tfrm_Stock_Report = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Shape1: TShape;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    TabSheet2: TTabSheet;
    Shape2: TShape;
    Label2: TLabel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    MaskEdit2: TMaskEdit;
    DateTimePicker4: TDateTimePicker;
    TabSheet3: TTabSheet;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    CheckBox1: TCheckBox;
    XPMenu1: TXPMenu;
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker4Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Stock_Report: Tfrm_Stock_Report;

implementation

uses Data;

{$R *.dfm}

procedure Tfrm_Stock_Report.DateTimePicker1Change(Sender: TObject);
begin
    MaskEdit1.Text:=formatdatetime('yyyy''-''mm''-''dd',DateTimePicker1.Date);
end;

procedure Tfrm_Stock_Report.DateTimePicker4Change(Sender: TObject);
begin
    MaskEdit2.Text:=formatdatetime('yyyy''-''mm',DateTimePicker4.Date);
end;

procedure Tfrm_Stock_Report.DateTimePicker2Change(Sender: TObject);
begin
    MaskEdit3.Text:=formatdatetime('yyyy''-''mm''-''dd',DateTimePicker2.Date);
end;

procedure Tfrm_Stock_Report.DateTimePicker3Change(Sender: TObject);
begin
    MaskEdit4.Text:=formatdatetime('yyyy''-''mm''-''dd',DateTimePicker3.Date);
end;

procedure Tfrm_Stock_Report.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action:=Cafree;
end;

procedure Tfrm_Stock_Report.SpeedButton2Click(Sender: TObject);
var
    tempsql:string;
begin
    tempsql:='Select Copy_Date,Goods_No,Goods_Name,Shop_No,Shop_Name,Storage_No,Storage_Name,amount from [V_Stock_Join_View] where ';
    if Trim(MaskEdit1.Text)<>'' then
    begin
        tempSql:=tempSql+' Copy_Date ='+''''+ Trim(MaskEdit1.Text)+''''+' and ';
    end;
    tempSql:=Copy(tempSql,0,length(tempSql)-4);
    with frm_data.ClientDataSet_Stock_Jion_Search do
    begin
        Close;
        CommandText:='';
        CommandText:=tempSql;
        try
            Open;
            if frm_data.ClientDataSet_Stock_Jion_Search.RecordCount<=0 then
            begin
                Application.MessageBox('对不起系统还没有符合条件的【采购入库单】！请确认！',pchar(application.Title),mb_iconwarning);
            end;
            if frm_data.ClientDataSet_Stock_Jion_Search.RecordCount>0 then
            begin
                frm_data.DataSource_Stock_Jion_Search.DataSet:=frm_data.ClientDataSet_Stock_Jion_Search;
                frm_data.DataSource_Stock_Jion_Search.Enabled:=True;
                {DBGrid1.DataSource:=frm_data.DataSource_Stock_Jion_Search;
                DBGrid1.Columns[0].Title.Caption:='录单日期';
                DBGrid1.Columns[1].Title.Caption:='商品编号';
                DBGrid1.Columns[2].Title.Caption:='商品名称';
                DBGrid1.Columns[3].Title.Caption:='店面编号';
                DBGrid1.Columns[4].Title.Caption:='店面名称';
                DBGrid1.Columns[5].Title.Caption:='仓库编号';
                DBGrid1.Columns[6].Title.Caption:='仓库名称';
                DBGrid1.Columns[7].Title.Caption:='入库数量';
                 }
            end;
            if frm_data.ClientDataSet_Stock_Jion_Search.RecordCount=0 then
            begin
                frm_data.DataSource_Stock_Jion_Search.DataSet:=frm_data.ClientDataSet_Stock_Jion_Search;
                frm_data.DataSource_Stock_Jion_Search.Enabled:=False;
            end;
        except
            Application.MessageBox('系统错误，在打开【采购入库单】数据表时出错！'+#13#10+'请检查远程服务器连接是否正常？请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
    end;
end;


end.