📄 main.pas

📁 delphi的一个开发实例
💻 PAS
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
unit Main;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, ComCtrls, XPMenu, jpeg, StdCtrls, Mask,
  Grids, ImgList, TeEngine, TeeFunci, Series, TeeProcs,
  Chart,Registry,iniFiles;
//***************窗体启动时的动画效果
const
    JC_HorPositive = $00000001;//从左到右
    JC_HorNegative = $00000002;//从右到左
    JC_VerPositive = $00000004;//从上到下
    JC_VerNegative = $00000008;//从下到上
    JC_Center = $00000010;//从中间显示
    JC_Blend = $00080000;//渐显窗体
//******************************************
type
    Tfrm_Main = class(TForm)
    P_anel1: TPanel;
    Panel_Title: TPanel;
    Panel3: TPanel;
    XPMenu1: TXPMenu;
    StatusBar1: TStatusBar;
    P1: TPanel;
    Panel4: TPanel;
    ImageList2: TImageList;
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    ListView2: TListView;
    ListView3: TListView;
    ListView4: TListView;
    P_Title: TPanel;
    Image1: TImage;
    Image2: TImage;
    Lab_title: TLabel;
    Cmd_Stock: TSpeedButton;
    Cmd_Sale: TSpeedButton;
    Cmd_Storage: TSpeedButton;
    Cmd_Client: TSpeedButton;
    Cmd_Money: TSpeedButton;
    Cmd_lead: TSpeedButton;
    Cmd_wholesale: TSpeedButton;
    Cmd_decision: TSpeedButton;
    Cmd_Cancel: TSpeedButton;
    GroupBox2: TGroupBox;
    SpeedButton21: TSpeedButton;
    SpeedButton23: TSpeedButton;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    SpeedButton24: TSpeedButton;
    GroupBox3: TGroupBox;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton31: TSpeedButton;
    SpeedButton33: TSpeedButton;
    SpeedButton34: TSpeedButton;
    SpeedButton35: TSpeedButton;
    SpeedButton36: TSpeedButton;
    Image_Title: TImage;
    Timer1: TTimer;
    TabSheet5: TTabSheet;
    ListView5: TListView;
    Panel2: TPanel;
    ListView1: TListView;
    Panel6: TPanel;
    GroupBox1: TGroupBox;
    Cmd_Stock_Enter_Total: TSpeedButton;
    SpeedButton11: TSpeedButton;
    Cmd_Stock_DReport: TSpeedButton;
    Cmd_Stock_MReport: TSpeedButton;
    Cmd_Stock_Report: TSpeedButton;
    ImageList3: TImageList;
    GroupBox4: TGroupBox;
    ListView6: TListView;
    Panel7: TPanel;
    Chart7: TChart;
    PieSeries6: TPieSeries;
    Chart8: TChart;
    PieSeries7: TPieSeries;
    Chart10: TChart;
    PieSeries9: TPieSeries;
    Chart9: TChart;
    PieSeries8: TPieSeries;
    PieSeries8TAddTeeFunction: TAddTeeFunction;
    Chart1: TChart;
    Series1: TPieSeries;
    Chart2: TChart;
    Label12: TLabel;
    Label10: TLabel;
    Chart3: TChart;
    Label4: TLabel;
    Label5: TLabel;
    FastLineSeries3: TFastLineSeries;
    FastLineSeries4: TFastLineSeries;
    FastLineSeries1: TFastLineSeries;
    FastLineSeries2: TFastLineSeries;
    Timer2: TTimer;
    Timer3: TTimer;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Timer4: TTimer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Cmd_CancelClick(Sender: TObject);
    procedure Cmd_leadClick(Sender: TObject);
    procedure Cmd_StockClick(Sender: TObject);
    procedure Cmd_StorageClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure Cmd_Stock_DReportClick(Sender: TObject);
    procedure Cmd_Stock_MReportClick(Sender: TObject);
    procedure Cmd_Stock_ReportClick(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton26Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1Click(Sender: TObject);
    procedure Cmd_SaleClick(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton33Click(Sender: TObject);
    procedure SpeedButton34Click(Sender: TObject);
    procedure SpeedButton35Click(Sender: TObject);
    procedure SpeedButton36Click(Sender: TObject);
    procedure ListView3Click(Sender: TObject);
    procedure ListView4Click(Sender: TObject);
    procedure Cmd_ClientClick(Sender: TObject);
    procedure Cmd_MoneyClick(Sender: TObject);
    procedure Cmd_wholesaleClick(Sender: TObject);
    procedure Cmd_decisionClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ListView5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Cmd_Stock_Enter_TotalClick(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);

  private
    { Private declarations }
    DeltaZoom:Integer;
    DisPos: Integer;
    f:TiniFile;
    Land_Type,Land_Name:string;
  public
    { Public declarations }
    procedure ShowForm(FormClass: TFormClass);
  end;

var
  frm_Main: Tfrm_Main;
  x,y,i:integer;
  SysInfo: String;
implementation

uses Stock_Contract, Stock_Enter, Stock_State,
  Stock_Fad, Stock_Pay, Goods_demand, Stock_Report, Umanage_Fad,
  Umanage_Enter, Price_Chang, Storage_Extravasate, Storage_Check,
  Storage_Check_Search, Storage_damage, price_attemper, Uprice_attemper,
  Storage_police, Sale_Contract, Sale_Out, Total_Search, Sale_Report,
  Thing_Base, Goods_Requirement, Begin_Build, Data, Parameter_Set,
  Examine_Verify, func, Business_Draft, SystemSet, Quality_Check,
  Goods_Write, Data_Manage, Chang_Login, Stock_Enter_Report, Company,
  Part_Set;

{$R *.dfm}
procedure Tfrm_Main.ShowForm(FormClass: TFormClass);
begin
  Timer2.Enabled:=False;
  Timer3.Enabled:=False;
  With FormClass.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
  Timer2.Enabled:=True;
  Timer3.Enabled:=True;
end;


procedure Tfrm_Main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:=Cafree;
end;

procedure Tfrm_Main.Cmd_CancelClick(Sender: TObject);
begin
    Image_Title.Top:=Cmd_Cancel.Top;
    if Application.MessageBox(' 确定需要退出【连锁销售管理系统】吗？请确认！','【眼镜连锁销售管理系统】四川盖达尔研制',mb_okcancel)=idok then
    begin
        frm_Data.Socket_Connection.Connected:=False;  //释放服务器的连接
        frm_Data.ClientDataSet_Add.Active:=false;     //释放数据连接的释放
        frm_Data.ClientDataSet1.Active:=False;
        application.Terminate;
        AnimateWindow (Handle, 1000, JC_VerPositive or $00010000 );//关闭时的动画显示
        system.Halt(0);
    end
    else
    begin
        Cmd_Stock.Click;
    end;;
end;

procedure Tfrm_Main.Cmd_leadClick(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【基本信息管理】';
    Lab_Title.Caption:='【基本信息管理】';
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=True;
    TabSheet5.TabVisible:=False;

    ListView1.Visible:=False;
    ListView2.Visible:=False;
    ListView3.Visible:=False;
    ListView4.Visible:=True;
    Image_Title.Top:=Cmd_lead.Top;
end;

procedure Tfrm_Main.Cmd_StockClick(Sender: TObject);
begin
    x:=0;
    y:=0;
    frm_Main.canvas.pen.width:=1;
    for i:=0 to 8 do
    begin
        frm_Main.canvas.pen.color:=$00404040;
        frm_Main.canvas.moveto(Cmd_Stock.left+Cmd_Stock.width+x,Cmd_Stock.top+8);
        frm_Main.canvas.lineto(Cmd_Stock.left+Cmd_Stock.width+x,Cmd_Stock.top+Cmd_Stock.height+8);
        //画出阴影效果
        frm_Main.canvas.moveto(Cmd_Stock.left+8,Cmd_Stock.top+Cmd_Stock.height+y);
        frm_Main.canvas.lineto(Cmd_Stock.left+Cmd_Stock.width+8,Cmd_Stock.top+Cmd_Stock.height+y);
        x:=x+1;
        y:=y+1;
    end;


    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【采购信息管理】';
    Lab_Title.Caption:='【采购信息管理】';
    Image_Title.Top:=Cmd_Stock.Top;
    TabSheet1.TabVisible:=True;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=False;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;
    ListView1.Visible:=True;
    ListView2.Visible:=False;
    ListView3.Visible:=False;
    ListView4.Visible:=False;
end;

procedure Tfrm_Main.Cmd_StorageClick(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【库存信息管理】';
    Lab_Title.Caption:='【库存信息管理】';
    Image_Title.Top:=Cmd_Storage.Top;
    TabSheet1.TabVisible:=False;
    TabSheet2.TabVisible:=False;
    TabSheet3.TabVisible:=True;
    TabSheet4.TabVisible:=False;
    TabSheet5.TabVisible:=False;

    ListView1.Visible:=False;
    ListView2.Visible:=False;
    ListView3.Visible:=True;
    ListView4.Visible:=False;

end;

procedure Tfrm_Main.SpeedButton4Click(Sender: TObject);
begin
    frm_Main.Panel_Title.Caption:='【连锁管理系统】->【采购信息管理】->【采购合同】';
    frm_Stock_Contract:=Tfrm_Stock_Contract.Create(self);
    frm_Stock_Contract.ShowModal;
    frm_Stock_Contract.Free;
end;

procedure Tfrm_Main.SpeedButton5Click(Sender: TObject);
begin
    frm_Stock_Enter:=Tfrm_Stock_Enter.Create(self);
    frm_Stock_Enter.ShowModal;
    frm_Stock_Enter.Free;
end;

procedure Tfrm_Main.SpeedButton6Click(Sender: TObject);
begin
    frm_Stock_State:=Tfrm_Stock_State.Create(self);
    frm_Stock_State.ShowModal;
    frm_Stock_State.Free;
end;

procedure Tfrm_Main.SpeedButton7Click(Sender: TObject);
begin
    frm_Stock_Fad:=Tfrm_Stock_Fad.Create(self);
    frm_Stock_Fad.ShowModal;
    frm_Stock_Fad.Free;
end;

procedure Tfrm_Main.SpeedButton8Click(Sender: TObject);
begin
    frm_Stock_Pay:=Tfrm_Stock_Pay.Create(self);
    frm_Stock_Pay.ShowModal;
    frm_Stock_Pay.Free;
end;



procedure Tfrm_Main.Cmd_Stock_DReportClick(Sender: TObject);
begin
    frm_Stock_Report:=Tfrm_Stock_Report.Create(self);
    frm_Stock_Report.Caption:='采购报日报';
    frm_Stock_Report.Height:=155;
    frm_Stock_Report.Width:=294;
    frm_Stock_Report.TabSheet1.TabVisible:=True;
    frm_Stock_Report.TabSheet2.TabVisible:=False;
    frm_Stock_Report.TabSheet3.TabVisible:=False;
    frm_Stock_Report.ShowModal;
    frm_Stock_Report.Free;
end;

procedure Tfrm_Main.Cmd_Stock_MReportClick(Sender: TObject);
begin
    frm_Stock_Report:=Tfrm_Stock_Report.Create(self);
    frm_Stock_Report.Caption:='采购月报';
    frm_Stock_Report.Height:=155;
    frm_Stock_Report.Width:=294;
    frm_Stock_Report.TabSheet2.TabVisible:=True;
    frm_Stock_Report.TabSheet1.TabVisible:=False;
    frm_Stock_Report.TabSheet3.TabVisible:=False;
    frm_Stock_Report.ShowModal;
    frm_Stock_Report.Free;
end;

procedure Tfrm_Main.Cmd_Stock_ReportClick(Sender: TObject);
begin
    frm_Stock_Report:=Tfrm_Stock_Report.Create(self);
    frm_Stock_Report.Caption:='采购报表(任意时间段)';
    frm_Stock_Report.Height:=174;
    frm_Stock_Report.Width:=410;
    frm_Stock_Report.TabSheet3.TabVisible:=True;
    frm_Stock_Report.TabSheet2.TabVisible:=False;
    frm_Stock_Report.TabSheet1.TabVisible:=False;
    frm_Stock_Report.ShowModal;
    frm_Stock_Report.Free;
end;

procedure Tfrm_Main.SpeedButton9Click(Sender: TObject);
begin
    frm_Umanage_Fad:=Tfrm_Umanage_Fad.Create(self);
    frm_Umanage_Fad.ShowModal;
    frm_Umanage_Fad.Free;
end;
procedure Tfrm_Main.SpeedButton21Click(Sender: TObject);
begin
    frm_Stock_State:=Tfrm_Stock_State.Create(self);
    frm_Stock_State.ShowModal;
    frm_Stock_State.Free;
end;
procedure Tfrm_Main.SpeedButton22Click(Sender: TObject);
begin
    frm_Storage_Check:=Tfrm_Storage_Check.Create(self);
    frm_Storage_Check.ShowModal;
    frm_Storage_Check.Free;
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -