unitclientprice.pas

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

unit UnitClientPrice;

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;

type
  TFrmClientPrice = class(TForm)
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    Panel64: TPanel;
    RzBitBtn119: TRzBitBtn;
    RzBitBtn121: TRzBitBtn;
    RzBitBtn213: TRzBitBtn;
    RzBitBtn1: TRzBitBtn;
    BtnExport: TRzBitBtn;
    cxGridDBTableView1id: TcxGridDBColumn;
    cxGridDBTableView1ClientName: TcxGridDBColumn;
    cxGridDBTableView1ProductName: TcxGridDBColumn;
    cxGridDBTableView1ClientPrice: TcxGridDBColumn;
    cxGridDBTableView1ProductID: TcxGridDBColumn;
    procedure RzBitBtn213Click(Sender: TObject);
    procedure RzBitBtn119Click(Sender: TObject);
    procedure RzBitBtn121Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure BtnExportClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmClientPrice: TFrmClientPrice;

implementation

uses DMUnit, UnitClientPrice_Edit;

{$R *.dfm}

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

procedure TFrmClientPrice.RzBitBtn119Click(Sender: TObject);
begin
   DM.ADOQueryClientPrice.Append;
   FrmClientPrice_Edit.ShowModal;
end;

procedure TFrmClientPrice.RzBitBtn121Click(Sender: TObject);
begin
  FrmClientPrice_Edit.ShowModal;
end;

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

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

procedure TFrmClientPrice.FormShow(Sender: TObject);
begin
  DM.ADOQueryClientPrice.Filtered:=False;
end;

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

end.