main.pas

用delphi开发的电力调度操作票系统并带有access数据库

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, Grids, DBGrids, StdCtrls, WinSkinData,
  ExtCtrls, jpeg, WinSkinStore,IniFiles;

type
  TFrm_Main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    E1: TMenuItem;
    N6KV1: TMenuItem;
    N6KV2: TMenuItem;
    N6KV3: TMenuItem;
    N4: TMenuItem;
    N6KVPT1: TMenuItem;
    N6KV4: TMenuItem;
    X1: TMenuItem;
    SkinData1: TSkinData;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    OpenDialog1: TOpenDialog;
    N21: TMenuItem;
    procedure N6KV1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N6KV2Click(Sender: TObject);
    procedure N6KV3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6KVPT1Click(Sender: TObject);
    procedure N6KV4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N21Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Frm_Main: TFrm_Main;
  UserNum,UserPSW,UserType:String;
implementation
uses
  Common,RptTable,KGCZ,MXCZ,MLCZ,DJDYCZ,BLQCZ,XLDZ,BDSM,CXM,
  DJDYM,BLQM,XLKGM,FZXLM,HWKGM,KGLXM,CZZHM,PXLM,MXACM,ZCZHM,
  USERM,skin,DZCZZHM;
{$R *.dfm}

procedure TFrm_Main.N6KV1Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_KGCZ,Frm_KGCZ);
  Frm_KGCZ.ShowModal;
end;

procedure TFrm_Main.FormShow(Sender: TObject);
begin
  if UserType<>'1' then N18.Enabled:=False;//用户管理菜单变灰
  Self.Caption:=Self.Caption+'[当前用户：'+UserNum+']'

end;

procedure TFrm_Main.N6KV2Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_MXCZ,Frm_MXCZ);
  Frm_MXCZ.ShowModal;
end;

procedure TFrm_Main.N6KV3Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_MLCZ,Frm_MLCZ);
  Frm_MLCZ.ShowModal;
end;

procedure TFrm_Main.N4Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_DJDY,Frm_DJDY);
  Frm_DJDY.ShowModal;
end;

procedure TFrm_Main.N6KVPT1Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_BLQ,Frm_BLQ);
  Frm_BLQ.ShowModal;
end;

procedure TFrm_Main.N6KV4Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_XLDZ,Frm_XLDZ);
  Frm_XLDZ.ShowModal;
end;

procedure TFrm_Main.N5Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_BDSM,Frm_BDSM);
  Frm_BDSM.ShowModal;
end;

procedure TFrm_Main.N6Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_CXM,Frm_CXM);
  Frm_CXM.ShowModal;
end;

procedure TFrm_Main.N7Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_DJDYM,Frm_DJDYM);
  Frm_DJDYM.ShowModal;
end;

procedure TFrm_Main.N9Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_BLQM,Frm_BLQM);
  Frm_BLQM.ShowModal;
end;

procedure TFrm_Main.N10Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_XLKGM,Frm_XLKGM);
  Frm_XLKGM.ShowModal;
end;

procedure TFrm_Main.N8Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_FZXLM,Frm_FZXLM);
  Frm_FZXLM.ShowModal;
end;

procedure TFrm_Main.E1Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Main.N11Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_HWKGM,Frm_HWKGM);
  Frm_HWKGM.ShowModal;
end;

procedure TFrm_Main.N12Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_KGLXM,Frm_KGLXM);
  Frm_KGLXM.ShowModal;
end;

procedure TFrm_Main.N13Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_CZZHM,Frm_CZZHM);
  Frm_CZZHM.ShowModal;
end;

procedure TFrm_Main.N14Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_PXLM,Frm_PXLM);
  Frm_PXLM.ShowModal;
end;

procedure TFrm_Main.N15Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_MXACM,Frm_MXACM);
  Frm_MXACM.ShowModal;
end;

procedure TFrm_Main.N16Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_ZCZHM,Frm_ZCZHM);
  Frm_ZCZHM.ShowModal;
end;

procedure TFrm_Main.N18Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_USERM,Frm_USERM);
  Frm_USERM.ShowModal;
end;

procedure TFrm_Main.N20Click(Sender: TObject);
var
  F:TextFile;
  s:string;
  content:TKContent;
begin
  try
    content.Body:=TStringList.Create;
    if self.OpenDialog1.Execute then
    begin
      AssignFile(F,OpenDialog1.FileName);
      Reset(F);
      while not Eof(f) do
      begin
        Readln(F,s);
        content.Body.Add(s)
      end;
      CloseFile(F);
    end;
    if content.Body.Count>1 then
    begin
      content.B_Type:=trim(content.Body[0]);
      content.Body.Delete(0);
      content.Title:=trim(content.Body[content.Body.Count-1]);
      content.Body.Delete(content.Body.Count-1);

    end;
    if trim(content.B_Type)<>'' then
    begin
      Frm_Com.WriteINI(content.B_Type);
      Frm_Com.WriteData(content);
      Application.CreateForm(TFrm_Table,Frm_Table);
      Frm_Table.Show;
    end;
    content.Body.Free;
  except
    showmessage('读出文件出错！');
    content.Body.Free;
  end;

end;

procedure TFrm_Main.N19Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_Skin,Frm_Skin);
  Frm_Skin.ShowModal;
end;

procedure TFrm_Main.FormCreate(Sender: TObject);
var
  FileName,SkinFileName,ImageFileName:string;
  IniFile:TIniFile;
begin

  FileName:=ExtractFilePath(Application.ExeName)+'Skins\skin.ini';
  if FileExists(FileName) then
  begin
     IniFile:=TIniFile.Create(FileName);
     try
       SkinFileName:=IniFile.ReadString('Path','SkinFileName','');
       ImageFileName:=IniFile.ReadString('Path','ImageFileName','');
       if FileExists(SkinFileName) then
         SkinData1.LoadFromFile(SkinFileName);
       if FileExists(ImageFileName) then
         Image1.Picture.LoadFromFile(ImageFileName);
     finally
        IniFile.Free;
     end;
  end;
  
end;

procedure TFrm_Main.N21Click(Sender: TObject);
begin
  Application.CreateForm(TFrm_DZCZZHM,Frm_DZCZZHM);
  Frm_DZCZZHM.ShowModal;
end;

end.