📄 main_f.pas

📁 县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值
💻 PAS
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Main_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Grids, DBGrids, Buttons, ToolWin, ComCtrls, jpeg, ExtCtrls,
  ExtDlgs;

type
  TF_Main = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    S_Login: TMenuItem;
    N8: TMenuItem;
    N4: TMenuItem;
    N2: TMenuItem;
    N9: TMenuItem;
    N14: TMenuItem;
    N13: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N3: TMenuItem;
    N10: TMenuItem;
    V1: TMenuItem;
    H1: TMenuItem;
    N11: TMenuItem;
    N16: TMenuItem;
    N15: TMenuItem;
    N19: TMenuItem;
    N5: TMenuItem;
    C1: TMenuItem;
    P1: TMenuItem;
    N7: TMenuItem;
    F1: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    L1: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N12: TMenuItem;
    N25: TMenuItem;
    A1: TMenuItem;
    CT1: TMenuItem;
    SQL1: TMenuItem;
    N28: TMenuItem;
    N26: TMenuItem;
    N111: TMenuItem;
    N41: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    N30: TMenuItem;
    B1: TMenuItem;
    N33: TMenuItem;
    N42: TMenuItem;
    G1: TMenuItem;
    DBG_Log: TDBGrid;
    ToolBar: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    StatusBar: TStatusBar;
    E1: TMenuItem;
    C2: TMenuItem;
    N32: TMenuItem;
    A2: TMenuItem;
    N34: TMenuItem;
    G2: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    I1: TMenuItem;
    N37: TMenuItem;
    N43: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    ImageBackground: TImage;
    PopupSet: TPopupMenu;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    OPD: TOpenPictureDialog;
    CD: TColorDialog;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N6: TMenuItem;
    N20: TMenuItem;
    N56: TMenuItem;
    I2: TMenuItem;
    N10KV1: TMenuItem;
    C3: TMenuItem;
    MM_Charge: TMainMenu;
    S1: TMenuItem;
    X1: TMenuItem;
    N57: TMenuItem;
    P2: TMenuItem;
    L2: TMenuItem;
    C4: TMenuItem;
    N110KV1: TMenuItem;
    N410: TMenuItem;
    H2: TMenuItem;
    A3: TMenuItem;
    D1: TMenuItem;
    R1: TMenuItem;
    N58: TMenuItem;
    K10KV1: TMenuItem;
    K10KV2: TMenuItem;
    N59: TMenuItem;
    G3: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N60: TMenuItem;
    B2: TMenuItem;
    N65: TMenuItem;
    procedure N14Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure V1Click(Sender: TObject);
    procedure H1Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure H2Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure L1Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure CT1Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure SQL1Click(Sender: TObject);
    procedure N111Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure S_LoginClick(Sender: TObject);
    procedure G1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure C2Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure V2Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure ImageBackgroundMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure G2Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure I2Click(Sender: TObject);
    procedure N10KV1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure L2Click(Sender: TObject);
    procedure P2Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure A3Click(Sender: TObject);
    procedure N410Click(Sender: TObject);
    procedure N110KV1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure K10KV1Click(Sender: TObject);
    procedure K10KV2Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N64Click(Sender: TObject);
    procedure B2Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
  private
    { Private declarations }
    LastTime:TDateTime;//上次显示的时间
//    procedure AppActive(Sender: TObject);
    procedure AppIdle(Sender: TObject; Var Done:Boolean);
  public
    { Public declarations }
  end;

var
  F_Main: TF_Main;

implementation

uses
  ShellAPI,
  IniFiles,
  Station_F, Elect_F, Default_F, Ammeter_Data_F, NewMonth_F, CommSmdljf, About_F,
  ValidFee_F, Town_F, House_F, Help_F, Line_F,
  Setup_F, Fee_Balance_F, Fee_List_F, ExecSQL_F,
  Single_House_F, Multi_House_F, Fee_Single_List_F,
  Fee_Multi_List_F, Fee_Transfer_F, Transfer_Wasting_F, Buy_F, Proc_Dm,
  Fee_Line_F, ChangePassword_F, Login_F, Table_DM, Comm, CopyList_F,
  AmmeterReplace_F, MergeTransfer_F, TransferAlterLine_F, Backup_F,
  AmmeterMove_F, CopyRate_F, LineCopyRate_F, House_Arrearage_F, ZeroFee_F,
  ExportFee_F, LNoManager_F, Fee_List_New_F, {Update_F, }HouseCard_F,
  Invoice10KV_F, Invoice400v_F, Charge_Report_400V_F, Charge_Report_10KV_F,
  Fee_Balance2_F, CommFee, HouseFee_F, TransferFee_F, LineFee_F,
  Transfer_Wasting2_F;

{$R *.DFM}
Var
	FirstActive: boolean;//是第一次激活窗口
    BackGroundPic: String;
    BackGroundColor:TColor;

//procedure TF_Main.AppActive(Sender: TObject);//应用程序被激活时
//Begin
//	Application.Restore();//当应用程序被最小化时，激活即可恢复
//End;

//应用程序得闲时,显示时间
procedure TF_Main.AppIdle(Sender: TObject;Var Done:Boolean);
Begin
	if(LastTime <> Time()) Then
    Begin
        LastTime := Time();
    	StatusBar.SimpleText := DateToStr(Date())+' '+TimeToStr(LastTime);
    End;
End;

procedure TF_Main.N14Click(Sender: TObject);
begin
	F_Station.ShowModal();
end;

procedure TF_Main.N3Click(Sender: TObject);
begin
	With F_Setup Do
    Begin
		Pc_Setup.ActivePage := Ts_Elect;
		ShowModal();
    End;
end;

procedure TF_Main.V1Click(Sender: TObject);
begin
	F_Town.ShowModal();
end;

procedure TF_Main.H1Click(Sender: TObject);
begin
	F_Single_House.ShowModal();
end;

procedure TF_Main.N19Click(Sender: TObject);
begin
	F_Default.ShowModal();
end;

procedure TF_Main.N16Click(Sender: TObject);
begin
	F_Ammeter_Data.ShowModal();
end;

procedure TF_Main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
	if (WarnExit) Then
		CanClose := MessageDlg('真的要退出系统?',mtCustom,mbOkCancel,0)=mrOk;
   	If CanClose And WarnBackup Then
   	Begin
   		if MessageBox(Handle,'系统建议你在每次修改过数据后及时备份数据'#13#10'你想现在就备份数据码?',
		        '系统提示',MB_ICONQUESTION + MB_YESNO) = IDYES Then
        	F_Backup.ShowModal();
    End;
end;

procedure TF_Main.N2Click(Sender: TObject);
begin
	Close();
end;

procedure TF_Main.N5Click(Sender: TObject);
begin
	Hide();
	F_NewMonth.ShowModal();
    Show();
end;

procedure TF_Main.C1Click(Sender: TObject);
begin
	F_ValidFee.ShowModal();
end;

procedure TF_Main.N40Click(Sender: TObject);
begin
//	Hide();
	F_About.ShowModal();
//    Show();
end;

procedure TF_Main.P1Click(Sender: TObject);
begin
	F_Fee_Balance.ShowModal();
end;

procedure TF_Main.H2Click(Sender: TObject);
begin
     //按乡镇输入用户数据
     F_House.ShowModal();
end;

procedure TF_Main.N38Click(Sender: TObject);
begin
    ShellExecute(Handle, nil,'Index.HTM',nil,nil,SW_SHOWNORMAL);
end;

procedure TF_Main.L1Click(Sender: TObject);
begin
	F_Line.ShowModal();
end;

procedure TF_Main.N18Click(Sender: TObject);
begin
//	F_Power_House.Caption := '动力用户输入';
	F_Multi_House.ShowModal();
end;

procedure TF_Main.N25Click(Sender: TObject);
begin
	With F_Setup Do
    Begin
		Pc_Setup.ActivePage := Ts_Voltage;
		ShowModal();
    End;
end;

procedure TF_Main.A1Click(Sender: TObject);
begin
	With F_Setup Do
    Begin
		Pc_Setup.ActivePage := Ts_Ammeter;
		ShowModal();
    End;
end;
12 下一页
💿 文件大小 3017 K
👤 上传用户 bobey
📂 所属分类数据库系统
🏷️ 相关标签

#Interbase #Procedure #Firebird #Trigger
⌨️ 快捷键说明

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