📄 u_main.~pas

📁 这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版
💻 ~PAS
字号:
unit U_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Menus, ComCtrls, ImgList, Buttons,
  IdBaseComponent, IdCoder, IdCoderQuotedPrintable, ActnList,
  XPStyleActnCtrls, ActnMan,u_public_define, StdCtrls;

type
  TFrm_Main = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    Sta: TStatusBar;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    ImageList1: TImageList;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    ActionManager1: TActionManager;
    Cxdl: TAction;
    Czygl: TAction;
    Xtcsh: TAction;
    Yhjbxx: TAction;
    Bmgl: TAction;
    Zwgl: TAction;
    Mzgl: TAction;
    Jggl: TAction;
    Zjgl: TAction;
    YCsdgl: TAction;
    Xkgl: TAction;
    Gjgl: TAction;
    Pmsd: TAction;
    Tc: TAction;
    Zhgl: TAction;
    Jtgl: TAction;
    SjCjgl: TAction;
    zjkgl: TAction;
    Zjkhz: TAction;
    Zhye: TAction;
    Hkqk: TAction;
    Zjkmx: TAction;
    Xfmx: TAction;
    Xfhz: TAction;
    Xtzjhz: TAction;
    gy: TAction;
    Lbl: TLabel;
    Lbl1: TLabel;
    Lbl2: TLabel;
    procedure N8Click(Sender: TObject);
    procedure ZhglExecute(Sender: TObject);
    procedure CzyglExecute(Sender: TObject);
    procedure CxdlExecute(Sender: TObject);
    procedure XtcshExecute(Sender: TObject);
    procedure YhjbxxExecute(Sender: TObject);
    procedure BmglExecute(Sender: TObject);
    procedure ZwglExecute(Sender: TObject);
    procedure MzglExecute(Sender: TObject);
    procedure JgglExecute(Sender: TObject);
    procedure ZjglExecute(Sender: TObject);
    procedure YCsdglExecute(Sender: TObject);
    procedure XkglExecute(Sender: TObject);
    procedure GjglExecute(Sender: TObject);
    procedure PmsdExecute(Sender: TObject);
    procedure TcExecute(Sender: TObject);
    procedure gyExecute(Sender: TObject);
    procedure XtzjhzExecute(Sender: TObject);
    procedure XfhzExecute(Sender: TObject);
    procedure XfmxExecute(Sender: TObject);
    procedure ZjkmxExecute(Sender: TObject);
    procedure HkqkExecute(Sender: TObject);
    procedure ZhyeExecute(Sender: TObject);
    procedure ZjkhzExecute(Sender: TObject);
    procedure zjkglExecute(Sender: TObject);
    procedure SjCjglExecute(Sender: TObject);
    procedure JtglExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Main: TFrm_Main;

implementation
  uses u_zhgl_zhgl,u_user,u_xtgl_yhxx,u_xtgl_xxgl,u_xtgl_sdxx,u_xtgl_gjgl,
        u_xtgl_xkff,u_data_update,u_zjkgl_zjkgl,u_zjkgl_hz,U_sjcj,u_bb_xtzjhz,
        u_help,u_bb_xfhz,U_Dl,u_data,u_pmsd;
{$R *.dfm}

procedure TFrm_Main.N8Click(Sender: TObject);
begin
   
   self.Close;
   self.Free;
end;

procedure TFrm_Main.ZhglExecute(Sender: TObject);
begin
    Frm_Zhgl_Zhgl:=Tfrm_Zhgl_Zhgl.Create(application);
    frm_zhgl_zhgl.ShowModal;
end;

procedure TFrm_Main.CzyglExecute(Sender: TObject);
begin
    frm_user:=Tfrm_user.Create(application);
    frm_user.ShowModal;
end;

procedure TFrm_Main.CxdlExecute(Sender: TObject);
begin
   Frm_dl:=Tfrm_dl.Create(application);
   frm_dl.showmodal;
  if g_bool_dlok=false then
     begin
       close;
     end;
//
end;

procedure TFrm_Main.XtcshExecute(Sender: TObject);
begin
//
end;

procedure TFrm_Main.YhjbxxExecute(Sender: TObject);
begin
    
    frm_xtgl_yhxx:=Tfrm_xtgl_yhxx.Create(application);
    frm_xtgl_yhxx.ShowModal; 
//
end;

procedure TFrm_Main.BmglExecute(Sender: TObject);
begin
    g_str_jbxx:='部门管理';
    frm_xtgl_xxgl:=Tfrm_xtgl_xxgl.Create(application);
    frm_xtgl_xxgl.ShowModal; 
//
end;

procedure TFrm_Main.ZwglExecute(Sender: TObject);
begin
    g_str_jbxx:='职务管理';
    frm_xtgl_xxgl:=Tfrm_xtgl_xxgl.Create(application);
    frm_xtgl_xxgl.ShowModal;
//
end;

procedure TFrm_Main.MzglExecute(Sender: TObject);
begin
    g_str_jbxx:='民族管理';
    frm_xtgl_xxgl:=Tfrm_xtgl_xxgl.Create(application);
    frm_xtgl_xxgl.ShowModal;
//
end;

procedure TFrm_Main.JgglExecute(Sender: TObject);
begin
    g_str_jbxx:='籍贯管理';
    frm_xtgl_xxgl:=Tfrm_xtgl_xxgl.Create(application);
    frm_xtgl_xxgl.ShowModal;
//
end;

procedure TFrm_Main.ZjglExecute(Sender: TObject);
begin
    g_str_jbxx:='增减管理';
    frm_xtgl_xxgl:=Tfrm_xtgl_xxgl.Create(application);
    frm_xtgl_xxgl.ShowModal;
//
end;

procedure TFrm_Main.YCsdglExecute(Sender: TObject);
begin
  Frm_xtgl_sdxx:=Tfrm_xtgl_sdxx.Create(application);
  frm_xtgl_sdxx.ShowModal;
//
end;

procedure TFrm_Main.XkglExecute(Sender: TObject);
begin
  frm_xtgl_xkff:=Tfrm_xtgl_xkff.Create(application);
  frm_xtgl_xkff.ShowModal; 
//
end;

procedure TFrm_Main.GjglExecute(Sender: TObject);
begin
  frm_xtgl_gjgl:=Tfrm_xtgl_gjgl.Create(application);
  frm_xtgl_gjgl.ShowModal; 
//
end;

procedure TFrm_Main.PmsdExecute(Sender: TObject);
begin
   frm_pmsd:=Tfrm_pmsd.Create(application);
   frm_pmsd.ShowModal; 
//
end;

procedure TFrm_Main.TcExecute(Sender: TObject);
begin
   close;
end;

procedure TFrm_Main.gyExecute(Sender: TObject);
begin
  frm_help:=Tfrm_help.Create(application);
  frm_help.ShowModal; 
//
end;

procedure TFrm_Main.XtzjhzExecute(Sender: TObject);
begin
  frm_bb_xtzjhz:=Tfrm_bb_xtzjhz.Create(application);
  frm_bb_xtzjhz.ShowModal;
//
end;

procedure TFrm_Main.XfhzExecute(Sender: TObject);
begin
//
end;

procedure TFrm_Main.XfmxExecute(Sender: TObject);
begin
  frm_bb_xfhz:=Tfrm_bb_xfhz.Create(application);
  frm_bb_xfhz.ShowModal; 
//
end;

procedure TFrm_Main.ZjkmxExecute(Sender: TObject);
begin
   g_str_jbxx:='增减明细';
   frm_zjkgl_zjkgl:=Tfrm_zjkgl_zjkgl.Create(application);
   frm_zjkgl_zjkgl.ShowModal;
//
end;

procedure TFrm_Main.HkqkExecute(Sender: TObject);
begin
//
end;

procedure TFrm_Main.ZhyeExecute(Sender: TObject);
begin
    g_str_jbxx:='账户余额';
    Frm_Zhgl_Zhgl:=Tfrm_Zhgl_Zhgl.Create(application);
    frm_zhgl_zhgl.ShowModal;
//
end;

procedure TFrm_Main.ZjkhzExecute(Sender: TObject);
begin
  
   frm_zjkgl_hz:=Tfrm_zjkgl_hz.Create(application);
   frm_zjkgl_hz.ShowModal; 
 //
end;

procedure TFrm_Main.zjkglExecute(Sender: TObject);
begin

  frm_zjkgl_zjkgl:=Tfrm_zjkgl_zjkgl.Create(application);
  frm_zjkgl_zjkgl.ShowModal;
//
end;

procedure TFrm_Main.SjCjglExecute(Sender: TObject);
begin
 frm_sjcj:=Tfrm_sjcj.Create(application);
 frm_sjcj.ShowModal; 
 //
end;

procedure TFrm_Main.JtglExecute(Sender: TObject);
begin
//
end;

procedure TFrm_Main.FormShow(Sender: TObject);
begin
  Data_ini;
  data.G_con.Open(); 
end;

procedure TFrm_Main.SpeedButton6MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
   lbl.Caption:='一、申请新账户';
   lbl1.Caption:='二、进行销卡、挂失、换号工作';
   lbl2.Caption:='三、进行资料报表';

end;

procedure TFrm_Main.SpeedButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
   lbl.Caption:='一、对新卡进行写号';
   lbl1.Caption:='';
   lbl2.Caption :='';
end;

procedure TFrm_Main.SpeedButton5MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
   lbl.Caption:='一、实时采集销费信息';
   lbl1.Caption:=' ';
   lbl2.Caption:=' ';
end;

procedure TFrm_Main.SpeedButton4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
 lbl.Caption:='退出系统';
   lbl1.Caption:='';
   lbl2.Caption:='';
end;

procedure TFrm_Main.SpeedButton3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
   lbl.Caption:='一、串口初使化';
   lbl1.Caption:='二、流水清除';
   lbl2.Caption:='';
end;

procedure TFrm_Main.SpeedButton2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
   lbl.Caption:='一、进行增减款处理';
   lbl1.Caption:='';
   lbl2.Caption:='';
end;

procedure TFrm_Main.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   lbl.Caption:='';
   lbl1.Caption:='';
   lbl2.Caption :='';
end;

end.
⌨️ 快捷键说明

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