systemsetunit.pas

公交行业的管理系统

unit SystemSetUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, jpeg, ExtCtrls, Buttons, DB,
  ADODB,idglobal,Menus;

type
  Tsystemform = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Buttonadduser: TButton;
    Buttondeleteuser: TButton;
    Buttonedituser: TButton;
    GroupBox2: TGroupBox;
    Image1: TImage;
    BitBtnchangeimage: TBitBtn;
    BitBtnoldimage: TBitBtn;
    BitBtnquicksave: TBitBtn;
    BitBtnusersave: TBitBtn;
    Edit10: TEdit;
    BitBtnquickopen: TBitBtn;
    BitBtnuseropen: TBitBtn;
    Edit11: TEdit;
    LVUsers: TListView;
    tempADOCommand: TADOCommand;
    Querytemp: TADOQuery;
    editexit: TButton;
    OpenimagefileDialog: TOpenDialog;
    BitBtnok: TBitBtn;
    BitBtncancel: TBitBtn;
    SaveDialog1: TSaveDialog;
    Buttonbeginsave: TButton;
    Buttonbeginopen: TButton;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ButtonedituserClick(Sender: TObject);
    procedure ButtonadduserClick(Sender: TObject);
    procedure ButtondeleteuserClick(Sender: TObject);
    procedure ButtonexitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtnoldimageClick(Sender: TObject);
    procedure BitBtnchangeimageClick(Sender: TObject);
    procedure BitBtnokClick(Sender: TObject);
    procedure BitBtncancelClick(Sender: TObject);
    procedure BitBtnquicksaveClick(Sender: TObject);
    procedure BitBtnquickopenClick(Sender: TObject);
    procedure BitBtnusersaveClick(Sender: TObject);
    procedure ButtonbeginsaveClick(Sender: TObject);
    procedure BitBtnuseropenClick(Sender: TObject);
    procedure ButtonbeginopenClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    imagefile:string;
    //dirstr:string;
    backstr:string;
    openstr:string;
    //填充用户列表
    procedure FillUsersList();

  end;

var
  systemform: Tsystemform;

implementation

uses userUnit,  MenuUnit,BusTradeDataModuleUnit;

{$R *.dfm}

procedure Tsystemform.FillUsersList;
var
    myItem:TListItem;
    i:integer;
begin
    //打开用户表
    //querytemp.Close;
    QueryTemp.Active:=false;
    querytemp.SQL.Clear;
    QueryTemp.sql.add('select * from 用户管理表');
    QueryTemp.Active :=true;
   //querytemp.Open;

    ///////////////////////填充
    LVusers.Items.Clear;
    querytemp.First;

    while not QueryTemp.Eof do
    begin
        //新建一个ITEM
        myItem:=LVUsers.Items.Add;
        //填入相应的属性
        myItem.Caption:=QueryTemp.fieldbyname('username').AsString;
        myitem.SubItems.Add(QueryTemp.fieldbyname('loginname').AsString);
        myitem.SubItems.Add('******');

      ////  myitem.SubItems.Add(QueryTemp.fieldbyname('lastlogtime').AsString);
      ////  myitem.SubItems.Add(QueryTemp.fieldbyname('rplist').AsString);

        QueryTemp.Next;

    end;

    querytemp.Close ;
    querytemp.SQL.Clear;
end;

procedure Tsystemform.FormCreate(Sender: TObject);
begin
  // GetDir(0,dirstr); { 0 = Current drive }
 //  MessageDlg('Current drive and directory: ' + s, mtInformation, [mbOk] , 0);

   FillUsersList;
end;

procedure Tsystemform.ButtonedituserClick(Sender: TObject);
begin
     if LVUsers.SelCount>0 then
    begin
        Userform:=TUserform.Create(application);
        Userform.OpenType:=1;
        Userform.UserID :=LVUsers.Selected.SubItems[LVUsers.Selected.SubItems.count-2];

        Userform.ShowModal;

        filluserslist;
    end
    else
    application.MessageBox('请选择一个用户','提示',0);
end;

procedure Tsystemform.ButtonexitClick(Sender: TObject);
begin
     close;
end;

procedure Tsystemform.ButtonadduserClick(Sender: TObject);
begin
      userform:=Tuserform.Create(application);
      userform.OpenType :=0;

      userform.ShowModal;
      filluserslist;
     // userform.Free;
end;

procedure Tsystemform.ButtondeleteuserClick(Sender: TObject);
begin
    if LVUsers.SelCount>0 then
    begin

     if messagebox(systemform.Handle ,'是否删除此记录？','提示',MB_YESNO+MB_ICONWARNING)=IDYES THEN
       begin
        try
        tempadocommand.CommandText:='delete from 用户管理表 where loginname='''+lvusers.Selected.SubItems[0]+'''';
        tempadocommand.Execute();
       ////   Sql.databasename :=getconnstr('sysdb','');
      ////    sql.DeleteSQL.Clear;
      ////    ss:='delete from users where loginname='''+lvusers.Selected.SubItems[0]+'''';
       ////   Sql.DeleteSQL.add(ss);
      ////    Sql.ExecSql(ukDelete);
        except
        end;
         filluserslist;
      end;
    end
    else
    application.MessageBox('请选择一个用户','提示',0);
end;

procedure Tsystemform.FormShow(Sender: TObject);
//var
 // aa:string;
begin
    FillUsersList;
  //  aa:=dirstr+'\'+'water.jpg';
  
  if FileExists(MainFrm.dirstr+'\'+'water.jpg') then
       begin
       image1.Picture.LoadFromFile(MainFrm.dirstr+'\'+'water.jpg');
     end;
    //image1.Picture.LoadFromFile(BusCorMainFm.dirstr+'\'+'water.jpg');
end;

procedure Tsystemform.BitBtnoldimageClick(Sender: TObject);
begin
if FileExists(MainFrm.dirstr+'\'+'tree.jpg') then
begin
imagefile:=MainFrm.dirstr+'\'+'tree.jpg';
image1.Picture.LoadFromFile(MainFrm.dirstr+'\'+'tree.jpg');
end;
  //  buscormainfm.backgroundImage.Picture.LoadFromFile('tree.jpg');
end;

procedure Tsystemform.BitBtnchangeimageClick(Sender: TObject);
begin
Openimagefiledialog.FileName:='';
  Openimagefiledialog.Title:='请选择图形文件';
  Openimagefiledialog.InitialDir:='公交企业整合';
  Openimagefiledialog.Filter:='图形文件(*.jpg)|*.jpg';
  Openimagefiledialog.Execute;
  if Openimagefiledialog.FileName<>'' then
  begin
  imagefile:=Openimagefiledialog.FileName;
 // imagefile:=Openimagefiledialog.FileName;
  image1.Picture.LoadFromFile(Openimagefiledialog.FileName);
  end;
  //FileEdit.Text:=OpenDialog1.FileName;
end;

procedure Tsystemform.BitBtnokClick(Sender: TObject);
begin
if imagefile<>'' then
  // buscormainfm.backgroundImage.Picture.LoadFromFile(imagefile);
  //  buscormainfm.backgroundImage.Picture.LoadFromFile()
  deletefile(MainFrm.dirstr+'\'+'water.jpg');
  copyfileto(imagefile,MainFrm.dirstr+'\'+'water.jpg');
  {buscormainfmMenu.FormShow(sender); }
  mainfrm.FormShow(sender);
   close;
end;

procedure Tsystemform.BitBtncancelClick(Sender: TObject);
begin
   imagefile:='';
   close;
end;

procedure Tsystemform.BitBtnquicksaveClick(Sender: TObject);
begin
    BusTradeDataModule.ADOConnection1.Connected:=false;
    deletefile(MainFrm.dirstr+'\'+'back.mdb');
    copyfileto(MainFrm.dirstr+'\'+'database\gyjdatabase.mdb',MainFrm.dirstr+'\'+'back.mdb');
    BusTradeDataModule.ADOConnection1.Connected:=true;
    application.MessageBox('备份成功','成功',0);
end;

procedure Tsystemform.BitBtnquickopenClick(Sender: TObject);
begin
     if FileExists(MainFrm.dirstr+'\'+'back.mdb') then
       begin
       BusTradeDataModule.ADOConnection1.Connected:=false;
       deletefile(MainFrm.dirstr+'\'+'database\gyjdatabase.mdb');
       copyfileto(MainFrm.dirstr+'\'+'back.mdb',MainFrm.dirstr+'\'+'database\gyjdatabase.mdb');
       BusTradeDataModule.ADOConnection1.Connected:=true;
       application.MessageBox('恢复成功','成功',0);
       FillUsersList;
     end;
end;

procedure Tsystemform.BitBtnusersaveClick(Sender: TObject);
begin
SaveDialog1.FileName:='';
    SaveDialog1.Title:='请选择备份文件';
  SaveDialog1.InitialDir:='公交企业整合';
  SaveDialog1.Filter:='数据文件(*.mdb)|*.mdb|所有文件(*.*)|*.*';
  SaveDialog1.Execute;
  if SaveDialog1.FileName<>'' then
  begin
  backstr:=SaveDialog1.FileName;
  edit10.Text:=backstr;
 // imagefile:=Openimagefiledialog.FileName;
 // image1.Picture.LoadFromFile(Openimagefiledialog.FileName);
  end;
end;

procedure Tsystemform.ButtonbeginsaveClick(Sender: TObject);
begin
        if backstr<>'' then
        begin
        BusTradeDataModule.ADOConnection1.Connected:=false;
        deletefile(backstr);
        copyfileto(MainFrm.dirstr+'\'+'database\gyjdatabase.mdb',backstr);
        BusTradeDataModule.ADOConnection1.Connected:=true;
        application.MessageBox('备份成功','成功',0)
        end
        else
    application.MessageBox('请选择一个文件','提示',0);
end;

procedure Tsystemform.BitBtnuseropenClick(Sender: TObject);
begin
Openimagefiledialog.FileName:='';
        Openimagefiledialog.Title:='请选择备份文件';
        Openimagefiledialog.InitialDir:='公交企业整合';
        Openimagefiledialog.Filter:='数据文件(*.mdb)|*.mdb|所有文件(*.*)|*.*';
        Openimagefiledialog.Execute;
        if Openimagefiledialog.FileName<>'' then
        begin
        openstr:=Openimagefiledialog.FileName;
        edit11.Text:=openstr;
        // imagefile:=Openimagefiledialog.FileName;
        // image1.Picture.LoadFromFile(Openimagefiledialog.FileName);
         end;
end;

procedure Tsystemform.ButtonbeginopenClick(Sender: TObject);
begin

       // if deletefile(BusCorMainFm.dirstr+'\'+'database\gyjdatabase.mdb')=false then
       // application.MessageBox('adf','adf',0);
     if openstr<>'' then
        begin

        if FileExists(openstr) then
        begin
        BusTradeDataModule.ADOConnection1.Connected:=false;
        deletefile(MainFrm.dirstr+'\'+'database\gyjdatabase.mdb');
        copyfileto(openstr,MainFrm.dirstr+'\'+'database\gyjdatabase.mdb');
        BusTradeDataModule.ADOConnection1.Connected:=true;
        application.MessageBox('恢复成功','成功',0);
        FillUsersList;
        end
        else
        application.MessageBox('文件不存在','提示',0);


        end
        else
    application.MessageBox('请选择一个文件','提示',0);

end;

end.