unitorderbill.pas

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

unit UnitOrderBill;

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
  TFrmOrderBill = class(TForm)
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    Panel64: TPanel;
    RzBitBtn119: TRzBitBtn;
    RzBitBtn121: TRzBitBtn;
    RzBitBtn213: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    BtnExport: TRzBitBtn;
    cxGridDBTableView1id: TcxGridDBColumn;
    cxGridDBTableView1OrderClient: TcxGridDBColumn;
    cxGridDBTableView1TotalPrice1: TcxGridDBColumn;
    cxGridDBTableView1InputDate: TcxGridDBColumn;
    cxGridDBTableView1Inputor: TcxGridDBColumn;
    cxGridDBTableView1Balance_flag: TcxGridDBColumn;
    cxGridDBTableView1Column1: TcxGridDBColumn;
    RzBitBtn2: TRzBitBtn;
    Panel1: TPanel;
    RzBitBtn8: TRzBitBtn;
    Label154: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    Label2: TLabel;
    wwDBLookupCombo2: TwwDBLookupCombo;
    Label5: TLabel;
    wwDBEdit4: TwwDBEdit;
    Label1: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    RzBitBtn3: 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 RzBitBtn8Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmOrderBill: TFrmOrderBill;

implementation

uses DMUnit, UnitOrderBill_Edit, MainUnit, UnitBalance;

{$R *.dfm}

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

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

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

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

procedure TFrmOrderBill.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 TFrmOrderBill.RzBitBtn2Click(Sender: TObject);
begin
  cxGridDBTableView1.DataController.Filter.AutoDataSetFilter:=True;
  FrmBalance.wwDBDateTimePicker1.Date:=date();
  FrmBalance.wwDBLookupCombo1.Text:=FrmMain.LoginUser;
  FrmBalance.ShowModal;
end;

procedure TFrmOrderBill.RzBitBtn8Click(Sender: TObject);
begin
  //=============预先设置过滤条件============
  //cxGridDBTableView1.DataController.Filter.Root.AddItem(cxGridDBTableView1Deal_No, foEqual, 4,'新增单号');
  cxGridDBTableView1.DataController.Filter.Clear;
  if  wwDBLookupCombo2.Text<>'' then
    cxGridDBTableView1.DataController.Filter.Root.AddItem(cxGridDBTableView1OrderClient, foEqual, wwDBLookupCombo2.Text,wwDBLookupCombo2.Text);
  if  wwDBEdit4.Text<>'' then
    cxGridDBTableView1.DataController.Filter.Root.AddItem(cxGridDBTableView1id, foEqual, wwDBEdit4.Text,wwDBEdit4.Text);
 // if  wwDBDateTimePicker1.Text<>'' then
 //   cxGridDBTableView1.DataController.Filter.Root.AddItem(cxGridDBTableView1InputDate, foGreater, wwDBDateTimePicker1.Date,wwDBDateTimePicker1.Text);
  if  wwDBDateTimePicker1.Text<>'' then
    cxGridDBTableView1.DataController.Filter.Root.AddItem(cxGridDBTableView1InputDate, foGreaterEqual, wwDBDateTimePicker1.Date,wwDBDateTimePicker1.Text);
  if  wwDBDateTimePicker2.Text<>'' then
    cxGridDBTableView1.DataController.Filter.Root.AddItem(cxGridDBTableView1InputDate, foLessEqual, wwDBDateTimePicker2.Date,wwDBDateTimePicker2.Text);

  cxGridDBTableView1.DataController.Filter.Active:=True;

end;

procedure TFrmOrderBill.RzBitBtn3Click(Sender: TObject);
begin
  wwDBLookupCombo2.Clear;
  wwDBEdit4.Clear;
  wwDBDateTimePicker1.Clear;
  wwDBDateTimePicker2.Clear;
  cxGridDBTableView1.DataController.Filter.Active:=False;
end;

procedure TFrmOrderBill.FormShow(Sender: TObject);
begin
  RzBitBtn2.Enabled:=DM.ADOQueryUserName.FieldByName('D23').AsBoolean;
end;

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

end.