main_f.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

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

procedure TF_Main.N22Click(Sender: TObject);
begin
	//只有在明细对帐表打印后才会统计出电炊票数
	F_Fee_List.ShowModal();
end;

procedure TF_Main.N23Click(Sender: TObject);
begin
	F_Fee_Transfer.ShowModal();
end;

procedure TF_Main.SQL1Click(Sender: TObject);
begin
	F_ExecSQL.ShowModal();
end;

procedure TF_Main.N111Click(Sender: TObject);
begin
	F_Fee_Single_List.ShowModal();
end;

procedure TF_Main.N41Click(Sender: TObject);
begin
	F_Fee_Multi_List.ShowModal();
end;

procedure TF_Main.N31Click(Sender: TObject);
begin
	F_Transfer_Wasting.ShowModal();
end;

procedure TF_Main.B1Click(Sender: TObject);
begin
    MyCreateForm(TF_Buy, TForm(F_Buy));
end;

procedure TF_Main.N42Click(Sender: TObject);
begin
	F_Fee_Line.ShowModal();
end;

procedure TF_Main.N8Click(Sender: TObject);
begin
	F_ChangePassword.ShowModal();
end;

procedure TF_Main.S_LoginClick(Sender: TObject);
begin
	Hide();
	F_Login.ShowModal();
    Show();
end;

procedure TF_Main.G1Click(Sender: TObject);
begin
	(Sender As TMenuItem).Checked := Not (Sender As TMenuItem).Checked;
    DBG_Log.Visible := (Sender As TMenuItem).Checked;
    if DBG_Log.Visible Then
    Begin
	    //在打开显示日志时重新刷新数据
		MyCloseDataset(DM_Table.Q_Log);
        DM_Table.Q_Log.ParamByName('Date').AsString := DateToStr(Now()-30);
		MyOpenDataset(Dm_Table.Q_Log);
    End;
end;

procedure TF_Main.FormActivate(Sender: TObject);
begin
	Caption := CorpName + '计费系统';
	//取得当前年，月
	P_GetCurrentYearMonth(CurrentYear, CurrentMonth);
    If FirstActive Then
   	Begin
        P_Log('系统启动');
        FirstActive := false;
    End;
end;







procedure TF_Main.FormCreate(Sender: TObject);
begin
	Application.ShowHint := true;
//    Application.OnActivate := AppActive;
    Application.OnIdle := AppIdle;
    LastTime := Time();
	FirstActive := true;

    BackGroundPic := IniFile.ReadString('Setup','背景图','背景.JPG');
    BackGroundColor := IniFile.ReadInteger('Setup','背景色',Color);
	Color := BackGroundColor;
   	Try
    	ImageBackground.Picture.LoadFromFile(BackGroundPic);
    Except
//    Finally
       	;
    End;
end;

procedure TF_Main.FormClose(Sender: TObject; var Action: TCloseAction);
Var
	wHandle: HWND;
begin
    P_Log('退出系统');

	wHandle := FindWindow('TF_CenterPC','固定集中器管理');
	if  (wHandle <> 0) then
    	PostMessage(wHandle,  WM_DESTROY, 0 ,0 );
end;

procedure TF_Main.C2Click(Sender: TObject);
begin
	F_CopyList.ShowModal();
end;

procedure TF_Main.A2Click(Sender: TObject);
begin
	F_AmmeterReplace.ShowModal();
end;

procedure TF_Main.N34Click(Sender: TObject);
begin
	F_MergeTransfer.ShowModal();
end;

procedure TF_Main.N36Click(Sender: TObject);
begin
	F_TransferAlterLine.ShowModal();
end;

procedure TF_Main.N37Click(Sender: TObject);
begin
	F_Backup.ShowModal();
end;

procedure TF_Main.V2Click(Sender: TObject);
begin
	F_AmmeterMove.ShowModal();
end;

procedure TF_Main.N61Click(Sender: TObject);
begin
	F_CopyRate.ShowModal();
end;

procedure TF_Main.N71Click(Sender: TObject);
begin
	F_LineCopyRate.ShowModal();
end;

procedure TF_Main.N45Click(Sender: TObject);
begin
    MyCreateForm(TF_House_Arrearage, TForm(F_House_Arrearage));
end;

procedure TF_Main.N47Click(Sender: TObject);
Var
	wHandle :HWND;//窗口句柄
begin
   	wHandle := FindWindow('TF_FixMain','天洋电子自动抄表');
	if  (wHandle <> 0) then
   		if MessageBox(Handle,'自动抄表程序已经启动,要重新启动吗?','系统提示',MB_ICONQUESTION + MB_YESNO) = IDYES Then
	    	SendMessage(wHandle, WM_CLOSE, 0, 0);
	If ShellExecute(Handle, nil,'P_FixCenter',PChar(F_Login.E_DBName.Text) ,nil,SW_SHOWNORMAL) <= 32 Then
    	Application.MessageBox('执行应用程序错误!','系统提示',0);;
end;

procedure TF_Main.ImageBackgroundMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var
	curPos: TPOINT;
begin
	if Button = mbRight Then
    Begin
		GetCursorPos(curPos);
		PopupSet.Popup(curPos.x, curPos.y);
    End;
end;

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

procedure TF_Main.N49Click(Sender: TObject);
begin
	If OPD.Execute() Then
    Begin
    	Try
	    	ImageBackground.Picture.LoadFromFile(OPD.FileName);
			BackGroundPic := OPD.FileName;
        Finally
        	;
        End;
    End;
end;

procedure TF_Main.FormDestroy(Sender: TObject);
begin
	IniFile.WriteString('Setup','背景图',BackGroundPic);
	IniFile.WriteInteger('Setup','背景色',BackGroundColor);
end;

procedure TF_Main.N51Click(Sender: TObject);
begin
	CD.Color := Color;
	if CD.Execute Then
    Begin
    	Color := CD.Color;
        BackGroundColor := Color;
    End;
end;

procedure TF_Main.N53Click(Sender: TObject);
begin
	F_ZeroFee.ShowModal();	
end;

procedure TF_Main.G2Click(Sender: TObject);
begin
	MyCreateForm(TF_ExportFee, TForm(F_ExportFee));
end;

procedure TF_Main.N55Click(Sender: TObject);
begin
	MyCreateForm(TF_LNoManager, TForm(F_LNoManager));//.Show();
end;

procedure TF_Main.N20Click(Sender: TObject);
begin
    F_Fee_List_New.ShowModal();
end;

procedure TF_Main.N56Click(Sender: TObject);
begin
	Exit;
//	F_Login.IB_Database.Connected := False;//关闭所有表
//	F_Login.IB_Database.Connected := True;//重新打开数据库
//	MyCreateForm(TF_Update, TForm(F_Update), True);//.ShowModal();
end;

procedure TF_Main.I2Click(Sender: TObject);
begin
    If gEnabledFee Then//使用收费功能
    	MyCreateForm(TF_Invoice400v, TForm(F_Invoice400v))
    Else
        ShowMessage('对不起, 收费功能未开通或连接收费数据库失败!');
end;

procedure TF_Main.N10KV1Click(Sender: TObject);
begin
    If gEnabledFee Then//使用收费功能
    	MyCreateForm(TF_Invoice10KV, TForm(F_Invoice10KV))
    Else
        ShowMessage('对不起, 收费功能未开通或连接收费数据库失败!');
end;

procedure TF_Main.FormShow(Sender: TObject);
begin
	If LoginPrivilege = $02 Then//收费员
    Begin
        F_Main.Menu := MM_Charge;
        ToolBar.Visible := False;
    End
	Else
    Begin
    	F_Main.Menu := MainMenu;
        ToolBar.Visible := True;
    End;
end;

procedure TF_Main.L2Click(Sender: TObject);
begin
	Hide();
	F_Login.ShowModal();
    Show();
end;

procedure TF_Main.P2Click(Sender: TObject);
begin
	F_ChangePassword.ShowModal();
end;

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

procedure TF_Main.A3Click(Sender: TObject);
begin
	F_About.ShowModal();
end;

procedure TF_Main.N410Click(Sender: TObject);
begin
	F_Invoice400V.Show();
end;

procedure TF_Main.N110KV1Click(Sender: TObject);
begin
	F_Invoice10KV.Show();
end;

procedure TF_Main.D1Click(Sender: TObject);
begin
	F_Charge_Report_400V.Show();
end;

procedure TF_Main.R1Click(Sender: TObject);
begin
	MyCreateForm(TF_Charge_Report_400V, TForm(F_Charge_Report_400V));
end;

procedure TF_Main.K10KV1Click(Sender: TObject);
begin
	MyCreateForm(TF_Charge_Report_10KV, TForm(F_Charge_Report_10KV));
end;

procedure TF_Main.K10KV2Click(Sender: TObject);
begin
	F_Charge_Report_10KV.Show();
end;

procedure TF_Main.N62Click(Sender: TObject);
begin
	MyCreateForm(TF_HouseFee, TForm(F_HouseFee));
end;

procedure TF_Main.N63Click(Sender: TObject);
begin
	MyCreateForm(TF_TransferFee, TForm(F_TransferFee));
end;

procedure TF_Main.N64Click(Sender: TObject);
begin
	MyCreateForm(TF_LineFee, TForm(F_LineFee));
end;

procedure TF_Main.B2Click(Sender: TObject);
begin
    MyCreateForm(TF_Fee_Balance2, TForm(F_Fee_Balance2));
end;

procedure TF_Main.N65Click(Sender: TObject);
begin
	MyCreateForm(TF_Transfer_Wasting2, TForm(F_Transfer_Wasting2));
end;

end.