mainform.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ComCtrls, ToolWin, ExtCtrls, Buttons, Grids,
  DB, DBTables, ImgList, RpCon, RpConDS, RpDefine, RpRave, DBGrids, jpeg,
  RpBase, RpSystem,RVClass, RVProj, RVCsStd;

type
  TMainFrm = class(TForm)
    MainMenu: TMainMenu;
    System_Menu: TMenuItem;
    EditPassword_Menu: TMenuItem;
    AddUser_Menu: TMenuItem;
    Separate_Menu: TMenuItem;
    Exit_Menu: TMenuItem;
    FeederCustomer_Menu: TMenuItem;
    Feeder_Menu: TMenuItem;
    AddFeeder_Menu: TMenuItem;
    EditFeeder_Menu: TMenuItem;
    DeleteFeeder_Menu: TMenuItem;
    QueryFeeder_Menu: TMenuItem;
    Customer_Menu: TMenuItem;
    AddCustomer_Menu: TMenuItem;
    EditCustomer_Menu: TMenuItem;
    DeleteCustomer_Menu: TMenuItem;
    QueryCustomer_Menu: TMenuItem;
    Product_Menu: TMenuItem;
    AddProduct_Menu: TMenuItem;
    EditProduct_Menu: TMenuItem;
    DeleteProduct_Menu: TMenuItem;
    SellStock_Menu: TMenuItem;
    Stock_Menu: TMenuItem;
    AddStock_Menu: TMenuItem;
    EditStock_Menu: TMenuItem;
    DeleteStock_Menu: TMenuItem;
    QueryStock_Menu: TMenuItem;
    Sell_Menu: TMenuItem;
    AddSell_Menu: TMenuItem;
    EditSell_Menu: TMenuItem;
    DeleteSell_Menu: TMenuItem;
    QuerySell_Menu: TMenuItem;
    Help_Menu: TMenuItem;
    About_Menu: TMenuItem;
    QueryProduct_Menu: TMenuItem;
    Panel1: TPanel;
    DeleteUser_Menu: TMenuItem;
    Main_Database: TDatabase;
    Main_imageList: TImageList;
    Main_ToolBar: TToolBar;
    QueryFeeder_ToolButton: TToolButton;
    QueryCustomer_ToolButton: TToolButton;
    QueryProduct_ToolButton: TToolButton;
    QueryStock_ToolButton: TToolButton;
    QuerySell_ToolButton: TToolButton;
    Exit_ToolButton: TToolButton;
    Separate_ToolButton0: TToolButton;
    Separate_ToolButton2: TToolButton;
    Separate_ToolButton1: TToolButton;
    Report_RvProject: TRvProject;
    FeederReport_RvDataSetConnection: TRvDataSetConnection;
    FeederReport_Table: TTable;
    CustomerReport_RvDataSetConnection: TRvDataSetConnection;
    CustomerReport_Table: TTable;
    ProductReport_RvDataSetConnection: TRvDataSetConnection;
    ProductReport_Table: TTable;
    StockReport_RvDataSetConnection: TRvDataSetConnection;
    StockReport_Table: TTable;
    SellReport_RvDataSetConnection: TRvDataSetConnection;
    SellReport_Table: TTable;
    MainFeeder_Image: TImage;
    MainProduct_Image: TImage;
    MainCustomer_Image: TImage;
    MainStock_Image: TImage;
    MainSell_Image: TImage;
    MainStatistics_Image: TImage;
    Report_RvSystem: TRvSystem;
    procedure Exit_MenuClick(Sender: TObject);
    procedure AddUser_MenuClick(Sender: TObject);
    procedure About_MenuClick(Sender: TObject);
    procedure AddFeeder_MenuClick(Sender: TObject);
    procedure EditFeeder_MenuClick(Sender: TObject);
    procedure DeleteFeeder_MenuClick(Sender: TObject);
    procedure QueryFeeder_MenuClick(Sender: TObject);
    procedure AddCustomer_MenuClick(Sender: TObject);
    procedure EditCustomer_MenuClick(Sender: TObject);
    procedure DeleteCustomer_MenuClick(Sender: TObject);
    procedure QueryCustomer_MenuClick(Sender: TObject);
    procedure AddProduct_MenuClick(Sender: TObject);
    procedure EditProduct_MenuClick(Sender: TObject);
    procedure DeleteProduct_MenuClick(Sender: TObject);
    procedure QueryProduct_MenuClick(Sender: TObject);
    procedure AddStock_MenuClick(Sender: TObject);
    procedure EditStock_MenuClick(Sender: TObject);
    procedure DeleteStock_MenuClick(Sender: TObject);
    procedure QueryStock_MenuClick(Sender: TObject);
    procedure AddSell_MenuClick(Sender: TObject);
    procedure EditSell_MenuClick(Sender: TObject);
    procedure DeleteSell_MenuClick(Sender: TObject);
    procedure QuerySell_MenuClick(Sender: TObject);
    procedure EditPassword_MenuClick(Sender: TObject);
    procedure DeleteUser_MenuClick(Sender: TObject); 
    procedure ToolButton7Click(Sender: TObject);
    procedure MainFeeder_ImageClick(Sender: TObject);
    procedure MainProduct_ImageClick(Sender: TObject);
    procedure MainCustomer_ImageClick(Sender: TObject);
    procedure MainStock_ImageClick(Sender: TObject);
    procedure MainSell_ImageClick(Sender: TObject);
    procedure MainStatistics_ImageClick(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

uses Login,AddUser, SoftNote, AddFeeder, EditFeeder, DeleteFeeder, QueryFeeder, AddCustomer, EditCustomer, DeleteCustomer,
  QueryCustomer, AddProduct, EditProduct, DeleteProduct, QueryProduct, Addstock, Editstock, Deletestock, Querystock,
  AddSell, EditSell, DeleteSell, QuerySell, EditPass, DeleteUser, Statistics;

{$R *.dfm}

procedure TMainFrm.Exit_MenuClick(Sender: TObject);
begin

  //-------关闭所有窗口，退出-----
  AddCustomerFrm.close;
  AddFeederFrm.close;
  AddProductFrm.close;
  AddSellFrm.close;
  AddstockFrm.close;
  AddUserFrm.close;

  DeleteCustomerFrm.close;
  DeleteFeederFrm.close;
  DeleteProductFrm.close;
  DeleteSellFrm.close;
  DeletestockFrm.close;
  DeleteUserFrm.close;

  EditCustomerFrm.close;
  EditFeederFrm.close;
  EditProductFrm.close;
  EditSellFrm.close;
  EditstockFrm.close;
  EditPasswordFrm.close;

  QueryCustomerFrm.close;
  QueryFeederFrm.close;
  QueryProductFrm.close;
  QuerySellFrm.close;
  QuerystockFrm.close;

  MainFrm.close;
  LoginFrm.close;
  SoftNoteFrm.close;
  StatisticsFrm.close;
end;  

procedure TMainFrm.AddUser_MenuClick(Sender: TObject);
begin
   AddUserFrm.show;
end;

procedure TMainFrm.About_MenuClick(Sender: TObject);
begin
SoftNoteFrm.showmodal;
end;

procedure TMainFrm.AddFeeder_MenuClick(Sender: TObject);
begin

AddFeederFrm.show;
end;

procedure TMainFrm.EditFeeder_MenuClick(Sender: TObject);
begin

  EditFeederFrm.show;
end;

procedure TMainFrm.DeleteFeeder_MenuClick(Sender: TObject);
begin

DeleteFeederFrm.show;
end;

procedure TMainFrm.QueryFeeder_MenuClick(Sender: TObject);
begin

 QueryFeederFrm.show;
end;

procedure TMainFrm.AddCustomer_MenuClick(Sender: TObject);
begin

 AddCustomerFrm.show;
end;

procedure TMainFrm.EditCustomer_MenuClick(Sender: TObject);
begin

  EditCustomerFrm.show;
end;

procedure TMainFrm.DeleteCustomer_MenuClick(Sender: TObject);
begin

 DeleteCustomerFrm.show;
end;

procedure TMainFrm.QueryCustomer_MenuClick(Sender: TObject);
begin

 QueryCustomerFrm.show;
end;

procedure TMainFrm.AddProduct_MenuClick(Sender: TObject);
begin

 AddProductFrm.show;
end;

procedure TMainFrm.EditProduct_MenuClick(Sender: TObject);
begin

 EditProductFrm.show;
end;

procedure TMainFrm.DeleteProduct_MenuClick(Sender: TObject);
begin

 DeleteProductFrm.show;
end;

procedure TMainFrm.QueryProduct_MenuClick(Sender: TObject);
begin

 QueryProductFrm.show;
end;

procedure TMainFrm.AddStock_MenuClick(Sender: TObject);
begin

 AddstockFrm.show;
end;

procedure TMainFrm.EditStock_MenuClick(Sender: TObject);
begin

 EditstockFrm.show;
end;

procedure TMainFrm.DeleteStock_MenuClick(Sender: TObject);
begin

 DeletestockFrm.show;
end;

procedure TMainFrm.QueryStock_MenuClick(Sender: TObject);
begin

 QuerystockFrm.show;
end;

procedure TMainFrm.AddSell_MenuClick(Sender: TObject);
begin

 AddSellFrm.show;
end;

procedure TMainFrm.EditSell_MenuClick(Sender: TObject);
begin

 EditSellFrm.show;
end;

procedure TMainFrm.DeleteSell_MenuClick(Sender: TObject);
begin

 DeleteSellFrm.show;
end;

procedure TMainFrm.QuerySell_MenuClick(Sender: TObject);
begin
 QuerySellFrm.show;
end;

procedure TMainFrm.EditPassword_MenuClick(Sender: TObject);
begin
 EditPasswordFrm.show;
end;

procedure TMainFrm.DeleteUser_MenuClick(Sender: TObject);
begin
 DeleteUserFrm.show;
end;



procedure TMainFrm.ToolButton7Click(Sender: TObject);
begin
 StatisticsFrm.show;
end;

procedure TMainFrm.MainFeeder_ImageClick(Sender: TObject);
var
	 ReportPage: TRavePage;
	 DateText: TRaveText;
begin
    //-------预览打印供应商信息报表------
   FeederReport_Table.Active:=False;
   FeederReport_Table.Active:=True;
   Report_RvProject.ProjectFile:='.\ReportPages\Feeder.rav';
   Report_RvProject.Open;
   with Report_RvProject.ProjMan do
      begin
        ReportPage:=FindRaveComponent('Feeder_Report.Feeder_MainPage',nil) as TRavePage;
	      DateText:= FindRaveComponent('dater',ReportPage) as TRaveText;
        DateText.Text:=datetostr(date);
      end;
   Report_RvProject.Execute;
   Report_RvProject.Close;
end;

procedure TMainFrm.MainProduct_ImageClick(Sender: TObject);
var
	 ReportPage: TRavePage;
	 DateText: TRaveText;
begin
    //-------预览打印商品信息报表------
   ProductReport_Table.Active:=False;
   ProductReport_Table.Active:=True;
   Report_RvProject.ProjectFile:='.\ReportPages\Product.rav';
   Report_RvProject.Open;
   with Report_RvProject.ProjMan do
      begin
        ReportPage:=FindRaveComponent('Product_Report.Product_MainPage',nil) as TRavePage;
	      DateText:= FindRaveComponent('dater',ReportPage) as TRaveText;
        DateText.Text:=datetostr(date);
      end;
   Report_RvProject.Execute;
   Report_RvProject.Close;
end;

procedure TMainFrm.MainCustomer_ImageClick(Sender: TObject);
var
	 ReportPage: TRavePage;
	 DateText: TRaveText;
begin
    //-------预览打印顾客信息报表------
   CustomerReport_Table.Active:=False;
   CustomerReport_Table.Active:=True;
   Report_RvProject.ProjectFile:='.\ReportPages\Customer.rav';
   Report_RvProject.Open;
   with Report_RvProject.ProjMan do
      begin
        ReportPage:=FindRaveComponent('Customer_Report.Customer_MainPage',nil) as TRavePage;
	      DateText:= FindRaveComponent('dater',ReportPage) as TRaveText;
        DateText.Text:=datetostr(date);
      end;
   Report_RvProject.Execute;
   Report_RvProject.Close;
end;

procedure TMainFrm.MainStock_ImageClick(Sender: TObject);
var
	 ReportPage: TRavePage;
	 DateText: TRaveText;
begin
    //-------预览打印进货信息报表------
   StockReport_Table.Active:=False;
   StockReport_Table.Active:=True;
   Report_RvProject.ProjectFile:='.\ReportPages\Stock.rav';
   Report_RvProject.Open;
   with Report_RvProject.ProjMan do
      begin
        ReportPage:=FindRaveComponent('Stock_Report.Stock_MainPage',nil) as TRavePage;
	      DateText:= FindRaveComponent('dater',ReportPage) as TRaveText;
        DateText.Text:=datetostr(date);
      end;
   Report_RvProject.Execute;
   Report_RvProject.Close;
end;

procedure TMainFrm.MainSell_ImageClick(Sender: TObject);
var
	 ReportPage: TRavePage;
	 DateText: TRaveText;
begin
   //-------预览打印销售信息报表------
   SellReport_Table.Active:=False;
   SellReport_Table.Active:=True;
   Report_RvProject.ProjectFile:='.\ReportPages\Sell.rav';
   Report_RvProject.Open;
   with Report_RvProject.ProjMan do
      begin
        ReportPage:=FindRaveComponent('Sell_Report.Sell_MainPage',nil) as TRavePage;
	DateText:= FindRaveComponent('dater',ReportPage) as TRaveText;
        DateText.Text:=datetostr(date);
      end;
   Report_RvProject.Execute;
   Report_RvProject.Close;
end;

procedure TMainFrm.MainStatistics_ImageClick(Sender: TObject);
begin
  StatisticsFrm.show;
end;

end.