datamanage.pas

文具仓库管理系统2.0（源码）delphi+access main in Mainmain.pas {FrmMain}, Login in LoginLogin.pas {FrmLogin},

unit DataManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, cxStyles, cxCustomData, 
  cxFilter, cxData, cxDataStorage, cxEdit,  cxDBData, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid,  cxGraphics, StdCtrls,
  cxExportGrid4Link, Buttons, cxPC, dxNavBarCollns, cxGridCustomPopupMenu,
  cxGridPopupMenu, DBCtrls, DB, Mask, Menus, FR_Class, FR_DSet, FR_DBSet ;

type
  TFrmDataManage = class(TForm)
    PageControl1: TPageControl;
    TabNowStock: TTabSheet;
    TabInStock: TTabSheet;
    TabOutStock: TTabSheet;
    TabSheet4: TTabSheet;
    Panel2: TPanel;
    SaveDialog1: TSaveDialog;
    Panel3: TPanel;
    BtnExcelNow: TSpeedButton;
    BtnHtmlNow: TSpeedButton;
    Panel4: TPanel;
    Label1: TLabel;
    BtnPrintNow: TSpeedButton;
    BtnExit: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBMemo1: TDBMemo;
    Panel1: TPanel;
    Panel5: TPanel;
    BtnExcelIn: TSpeedButton;
    BtnHtmlIn: TSpeedButton;
    BtnPrintIn: TSpeedButton;
    SpeedButton8: TSpeedButton;
    Panel6: TPanel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBMemo2: TDBMemo;
    cxGrid1: TcxGrid;
    cxGridTable: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    FieldNO: TcxGridDBColumn;
    FieldClass: TcxGridDBColumn;
    FieldGoods: TcxGridDBColumn;
    FieldGuige: TcxGridDBColumn;
    FieldUnit: TcxGridDBColumn;
    FieldPrice: TcxGridDBColumn;
    FieldAmount: TcxGridDBColumn;
    FieldMemo: TcxGridDBColumn;
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    cxGridDBTableView1DBColumn1: TcxGridDBColumn;
    cxGrid3: TcxGrid;
    cxGridDBTableView2: TcxGridDBTableView;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridDBColumn10: TcxGridDBColumn;
    cxGridDBColumn11: TcxGridDBColumn;
    cxGridDBColumn12: TcxGridDBColumn;
    cxGridDBColumn13: TcxGridDBColumn;
    cxGridDBColumn14: TcxGridDBColumn;
    cxGridDBColumn15: TcxGridDBColumn;
    cxGridDBColumn16: TcxGridDBColumn;
    cxGridDBColumn17: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    Panel7: TPanel;
    Panel8: TPanel;
    BtnExcelOut: TSpeedButton;
    BtnHtmlOut: TSpeedButton;
    BtnPrintOut: TSpeedButton;
    SpeedButton12: TSpeedButton;
    Panel9: TPanel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBMemo3: TDBMemo;
    cxGridDBTableView2DBColumn1: TcxGridDBColumn;
    cxGridDBTableView2DBColumn2: TcxGridDBColumn;
    Label22: TLabel;
    DBEdit19: TDBEdit;
    Label23: TLabel;
    DBEdit21: TDBEdit;
    Label24: TLabel;
    Label25: TLabel;
    DBEdit22: TDBEdit;
    CmbDepartment: TDBComboBox;
    BtnGetGoods: TSpeedButton;
    Panel10: TPanel;
    cxGrid4: TcxGrid;
    cxGridDBTableView3: TcxGridDBTableView;
    cxGridDBColumn18: TcxGridDBColumn;
    cxGridDBColumn19: TcxGridDBColumn;
    cxGridDBColumn22: TcxGridDBColumn;
    cxGridDBColumn23: TcxGridDBColumn;
    cxGridDBColumn24: TcxGridDBColumn;
    cxGridDBColumn25: TcxGridDBColumn;
    cxGridDBColumn26: TcxGridDBColumn;
    cxGridDBColumn27: TcxGridDBColumn;
    cxGridDBColumn28: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    P1: TMenuItem;
    EXCEL1: TMenuItem;
    HTML1: TMenuItem;
    N3: TMenuItem;
    GroupBox1: TGroupBox;
    Label26: TLabel;
    SpeedButton18: TSpeedButton;
    frDBDataSet1: TfrDBDataSet;
    FrStrockNow: TfrReport;
    FrStrockIn: TfrReport;
    FrStrockOut: TfrReport;
    C1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure BtnExcelNowClick(Sender: TObject);
    procedure BtnHtmlNowClick(Sender: TObject);
    procedure BtnExcelInClick(Sender: TObject);
    procedure BtnHtmlInClick(Sender: TObject);
    procedure BtnExcelOutClick(Sender: TObject);
    procedure BtnHtmlOutClick(Sender: TObject);
    procedure BtnGetGoodsClick(Sender: TObject);
    procedure TabNowStockShow(Sender: TObject);
    procedure TabInStockShow(Sender: TObject);
    procedure TabOutStockShow(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure EXCEL1Click(Sender: TObject);
    procedure HTML1Click(Sender: TObject);
    procedure BtnPrintNowClick(Sender: TObject);
    procedure BtnPrintInClick(Sender: TObject);
    procedure BtnPrintOutClick(Sender: TObject);
    procedure P1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ShowNowStock;
    procedure ShowInStockHistory;
    procedure ShowOutStockHistory;
    procedure ReadDepartName;
    procedure ExportTOExcel(sGrid:TcxGrid;sTitle:string);
    procedure ExportTOHtml(sGrid:TcxGrid;sTitle:string);
  public
    { Public declarations }
  end;

var
  FrmDataManage: TFrmDataManage;

implementation

uses global,dm, GetGoods, Logo;

{$R *.dfm}

procedure TFrmDataManage.FormCreate(Sender: TObject);
begin
self.Caption :=SFormDataMgr;
with FrmLogo do
  begin
    LMsg1.Caption :=sMsgLoadInfo2;
    LMsg2.Caption :=sMsgLoadInfo2;
    LMsg1.Update;
    LMsg2.Update;
  end;
ShowNowStock;
ShowInStockHistory;
ShowOutStockHistory;
ReadDepartName;
end;

procedure TFrmDataManage.ShowNowStock;
begin
with dm_Wjckgl.ADOQryNowStock do
  begin
    close;
    sql.Text :=sSQLShowNowStock ;
    open;
  end;
end;

procedure TFrmDataManage.BtnExitClick(Sender: TObject);
begin
close;
end;

procedure TFrmDataManage.ShowInStockHistory;
begin
with dm_Wjckgl.ADOQryInStock do
  begin
    close;
    sql.Text :=sSQLShowInStock ;
    open;
  end;
end;

procedure TFrmDataManage.ExportTOExcel(sGrid: TcxGrid;sTitle:string);
var
  fn:string;
begin
SaveDialog1.Title :=sTitle;
SaveDialog1.Filter :='EXCEL表格 | *.xls';
if SaveDialog1.Execute then
  fn:=SaveDialog1.FileName;
if fn<>'' then
  ExportGrid4ToExcel(fn,sGrid,true,true,true);
end;

procedure TFrmDataManage.BtnExcelNowClick(Sender: TObject);
begin
ExportTOExcel(cxGrid1,SFNowStock);
end;

procedure TFrmDataManage.ExportTOHtml(sGrid: TcxGrid;sTitle:string);
var
  fn:string;
begin
SaveDialog1.Title :=sTitle;
SaveDialog1.Filter :='网页格式(*.Html) | *.Html';
if SaveDialog1.Execute then
  fn:=SaveDialog1.FileName;
if fn<>'' then
  ExportGrid4ToHTML(fn,sGrid,true,true);
end;

procedure TFrmDataManage.BtnHtmlNowClick(Sender: TObject);
begin
ExportTOHtml(cxGrid1,SFNowStock);
end;

procedure TFrmDataManage.BtnExcelInClick(Sender: TObject);
begin
ExportTOExcel(cxGrid2,STGoodsInHistory );
end;

procedure TFrmDataManage.BtnHtmlInClick(Sender: TObject);
begin
ExportTOHtml(cxGrid2,STGoodsInHistory);
end;

procedure TFrmDataManage.ShowOutStockHistory;
begin
with dm_Wjckgl.ADOQryOutStock do
  begin
    close;
    sql.Text :=sSQLShowOutStock ;
    open;
  end;
end;

procedure TFrmDataManage.BtnExcelOutClick(Sender: TObject);
begin
ExportTOExcel(cxGrid3,STGoodsOutHistory);
end;

procedure TFrmDataManage.BtnHtmlOutClick(Sender: TObject);
begin
ExportTOHtml(cxGrid3,STGoodsOutHistory);
end;

procedure TFrmDataManage.ReadDepartName;
begin
CmbDepartment.Items.Clear;
with Dm_Wjckgl.ADOQry do
begin
  close;
  sql.Text :=format(SSQLTY1,[STDept,SFDept]);
  open;
  first;
  while not eof do
  begin
    if FieldValues[SFDept]<> null then
      CmbDepartment.Items.Add(FieldValues[SFDept]);
    next;
  end;
  close;
end;
end;

procedure TFrmDataManage.BtnGetGoodsClick(Sender: TObject);
begin
with FrmGetGoods do
  begin
    EdtClass.Text :=DBEdit1.Text;
    EdtGoods.Text :=DBEdit2.Text;
    EdtGuige.Text :=DBEdit3.Text;
    EdtUnit.Text :=DBEdit4.Text;
    EdtPrice.Text :=DBEdit5.Text;
    EdtAmount.Text :=DBEdit6.Text;
    Lunit.Caption :=DBEdit4.Text;
    showmodal;
  end;
with DM_Wjckgl.ADOQryNowStock do
  begin
    Close;
    open;
  end;
end;

procedure TFrmDataManage.TabNowStockShow(Sender: TObject);
begin
with DM_Wjckgl.ADOQryNowStock do
  begin
    Close;
    open;
  end;
end;

procedure TFrmDataManage.TabInStockShow(Sender: TObject);
begin
with DM_Wjckgl.ADOQryInStock do
  begin
    Close;
    open;
  end;
end;

procedure TFrmDataManage.TabOutStockShow(Sender: TObject);
begin
with DM_Wjckgl.ADOQryOutStock do
  begin
    Close;
    open;
  end;
end;

procedure TFrmDataManage.SpeedButton14Click(Sender: TObject);
begin
ExportTOExcel(cxGrid4,STMonthStock);
end;

procedure TFrmDataManage.SpeedButton15Click(Sender: TObject);
begin
ExportTOHtml(cxGrid3,STMonthStock);
end;


procedure TFrmDataManage.PopupMenu1Popup(Sender: TObject);
begin
if TabNowStock.Showing then
  N1.Visible :=true
  else
  N1.Visible :=False;
end;

procedure TFrmDataManage.EXCEL1Click(Sender: TObject);
begin
if TabNowStock.Showing then
  BtnExcelNowClick(Sender);
if TabInStock.Showing then
  BtnExcelInClick(Sender);
if TabOutStock.Showing then
  BtnExcelOutClick(Sender);
  
end;

procedure TFrmDataManage.HTML1Click(Sender: TObject);
begin
if TabNowStock.Showing then
  BtnHtmlNowClick(Sender);
if TabInStock.Showing then
  BtnHtmlinClick(Sender);
if TabOutStock.Showing then
  BtnHtmlOutClick(Sender);
end;

procedure TFrmDataManage.BtnPrintNowClick(Sender: TObject);
begin
frStrockNow.FindObject('Memo13').Memo.Text :='打印日期：'+DateToStr(Now);
frDBDataSet1.DataSet :=DM_Wjckgl.ADOQryNowStock;
frStrockNow.ShowReport;
end;

procedure TFrmDataManage.BtnPrintInClick(Sender: TObject);
begin
frStrockIn.FindObject('Memo13').Memo.Text :='打印日期：'+DateToStr(Now);
frDBDataSet1.DataSet :=DM_Wjckgl.ADOQryInStock;
frStrockIn.ShowReport;
end;

procedure TFrmDataManage.BtnPrintOutClick(Sender: TObject);
begin
frStrockOut.FindObject('Memo13').Memo.Text :='打印日期：'+DateToStr(Now);
frDBDataSet1.DataSet :=DM_Wjckgl.ADOQryOutStock;
frStrockOut.ShowReport;
end;

procedure TFrmDataManage.P1Click(Sender: TObject);
begin
if TabNowStock.Showing then
  BtnPrintNowClick(Sender);
if TabInStock.Showing then
  BtnPrintInClick(Sender);
if TabOutStock.Showing then
  BtnPrintOutClick(Sender);
end;

end.