unitdayreport.pas

仓库出单管理系统,采用SQL数据库,功能并不强大,但在操作的方便性上花了一点功夫,对新手有一定的学习作用

unit UnitDayReport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, RzButton, ExtCtrls, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGrid, cxCurrencyEdit,cxExportGrid4Link,
  cxDBLookupComboBox, Mask, wwdbedit, wwdblook, StdCtrls,
  wwdbdatetimepicker;

type
  TFrmDayReport = class(TForm)
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    Panel1: TPanel;
    RzBitBtn8: TRzBitBtn;
    Label154: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label2: TLabel;
    wwDBLookupCombo2: TwwDBLookupCombo;
    Label5: TLabel;
    wwDBEdit4: TwwDBEdit;
    Label1: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    cxGridDBTableView1ProductName: TcxGridDBColumn;
    cxGridDBTableView1DayTotalWeight: TcxGridDBColumn;
    cxGridDBTableView1DayTotalPrice: TcxGridDBColumn;
    BtnExport: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure RzBitBtn213Click(Sender: TObject);
    procedure RzBitBtn121Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure BtnExportClick(Sender: TObject);
    procedure RzBitBtn119Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDayReport: TFrmDayReport;

implementation

uses DMUnit, UnitOrderBill_Edit, MainUnit, UnitBalance;

{$R *.dfm}

procedure TFrmDayReport.RzBitBtn213Click(Sender: TObject);
begin
  if Messagebox(handle,'您确认要删除本条信息吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
  Begin
    DM.ADOQueryOrderBill.Delete;
  end
end;

procedure TFrmDayReport.RzBitBtn121Click(Sender: TObject);
begin
  FrmOrderBill_Edit.ShowModal;
end;

procedure TFrmDayReport.RzBitBtn1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrmDayReport.BtnExportClick(Sender: TObject);
begin
 if DM.SaveDialog1.Execute then
    exportgrid4toexcel(DM.SaveDialog1.FileName,cxGrid2,True,true);
end;

procedure TFrmDayReport.RzBitBtn119Click(Sender: TObject);
begin
  DM.ADOQueryOrderBill.Append;
  DM.ADOQueryOrderBill.FieldByName('Inputor').AsString:=FrmMain.LoginUser;
  DM.ADOQueryOrderBill.FieldByName('InputDate').AsDateTime:=Date;
  DM.ADOQueryOrderBill.Post;
  FrmOrderBill_Edit.ShowModal;
end;

procedure TFrmDayReport.RzBitBtn2Click(Sender: TObject);
begin
  DM.RMGridReportDayReport.LoadFromFile('Report/DayReport.rls');
 // DM.RMGridReportDayReport.Dictionary.Variables.Variable['SReportDate1']:='1月27日';
//  DM.RMGridReportDayReport.Dictionary.Variables.Variable['SReportDate2']:=DateTimeToStr(wwDBDateTimePicker2.Date);
 {
 在应用程序中向ReportMachine报表传递参数
 ///RMReport1.Dictionary.Variables.Variable['aaa']   :=   Edit1.Text;
  用这句给参数赋值     在rmreport中设置memo读取参数值  
  在rmreport中点菜单：文件—〉数据字典
  加一个变量aaa
}
  DM.RMGridReportDayReport.ShowReport;
end;

procedure TFrmDayReport.RzBitBtn3Click(Sender: TObject);
begin
  wwDBLookupCombo2.Clear;
  wwDBEdit4.Clear;
  wwDBDateTimePicker1.Clear;
  wwDBDateTimePicker2.Clear;
end;

procedure TFrmDayReport.RzBitBtn8Click(Sender: TObject);
begin
   DM.ADOQueryDayReport.SQL.Clear;
   DM.ADOQueryDayReport.SQL.Add('SELECT ProductName, SUM(TotalWeight) AS DayTotalWeight, SUM(TotalPrice) AS DayTotalPrice FROM View_BillDetail where InputDate>='''+DateToStr(wwDBDateTimePicker1.Date)+''' and InputDate<='''+DateToStr(wwDBDateTimePicker2.Date)+''' GROUP BY ProductName ');
   DM.ADOQueryDayReport.Active:=True;
end;

procedure TFrmDayReport.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=caFree;
end;

end.