zjm.pas

c/s系统。 delphi 6+access 运行前先配置数据环境：把db文件夹复制到c：下 要编译请安装第三方控件fastreport2.47 这是我的小小的毕业设计

unit zjm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, DB, ADODB,ADOX_TLB, DBTables, Grids, DBGrids,
  Buttons;

type
  Tfzjm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOTable1: TADOTable;
    Image1: TImage;
    Bevel2: TBevel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure CreateNewDatabase(DatabaseFileName: string);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

   



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fzjm: Tfzjm;

implementation

uses qxfp, bx, cx, gy, hz, u_tj,sjkwh, pass, adduser,xiugaimm,xiugaiyhm,deleteuser,ComObj;

{$R *.dfm}

procedure Tfzjm.CreateNewDatabase(DatabaseFileName: string);
 var
CreateAccess:OleVariant;

adoxcatalog:_catalog;
begin


 //创建数据库
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\back\'+DatabaseFileName);

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\back\'+DatabaseFileName;
adoxcatalog:=cocatalog.create;
ADOConnection1.connected:=true;
ADOXcatalog.set_activeconnection(ADOConnection1.ConnectionObject);

  end;
procedure Tfzjm.N4Click(Sender: TObject);
var
 i,k:integer;

begin


  //end;
if (Application.MessageBox('是否确定要退出','确认退出',MB_YESNO+MB_ICONQUESTION)<>IDNO) then
begin
    if  not FileExists('c:\db\back\'+datetostr(now())+'.mdb') then
     begin


      CreateNewDatabase(datetostr(now())+'.mdb');


      with ADOQuery1 do
begin
  close;
  sql.clear;
  sql.add('create table bake(');
  sql.add('sn varchar(6),');
  sql.add('报修序号 VarChar(10) NOT NULL,');
  sql.add('修完时间 date NOT NULL,');
  sql.add('维修工时 VarChar(4) NOT NULL,');
  sql.add('维修耗时 VarChar(10) NOT NULL,');
  sql.add('维修系统 VarChar(10) NOT NULL,');
  sql.add('系统部件 VarChar(10) NOT NULL,');
  sql.add('部件位置 VarChar(10) NOT NULL,');
  sql.add('修理情况 VarChar(10) NOT NULL,');
  sql.add('修理句  VarChar(20) NOT NULL,');
  sql.add('维修员 VarChar(4) NOT NULL,');
  sql.add('检验员 VarChar(4) NOT NULL,');
  sql.add('primary key (sn))');

  execsql;
  end;
  end
  else
   begin
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db\back\'+datetostr(now())+'.mdb;Persist Security Info=False ';
   // 清除bake中已存在的记录
      with ADOQuery1 do
begin
  close;
  sql.clear;
  sql.add('delete  from bake');
  execsql;

end;
end;
// ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db\back\'+datetostr(now())+'.mdb;Persist Security Info=False ';
  adotable1.connection:=ADOConnection1;
  adotable1.tablename:='bake';

  hz_f.table1.open;
  hz_f.table1.first;
  adotable1.open;
  adotable1.first;
  k:=hz_f.table1.recordcount;

   for i:=1 to k do

       begin
          if hz_f.table1.FieldByName('修完时间').AsString=datetostr(now()) then
          begin
          adotable1.insert;
          adotable1.fieldbyname('报修序号').Asstring:=hz_f.table1.fieldbyname('报修序号').Asstring ;
          adotable1.fieldbyname('sn').Asstring :=hz_f.table1.fieldbyname('sn').Asstring ;
          adotable1.fieldbyname('检验员').Asstring:=hz_f.table1.fieldbyname('检验员').Asstring ;
          adotable1.fieldbyname('维修员').Asstring:=hz_f.table1.fieldbyname('维修员').Asstring ;
          adotable1.fieldbyname('修理情况').Asstring:=hz_f.table1.fieldbyname('修理情况').Asstring ;
          adotable1.fieldbyname('部件位置').Asstring:=hz_f.table1.fieldbyname('部件位置').Asstring ;
          adotable1.fieldbyname('系统部件').Asstring :=hz_f.table1.fieldbyname('系统部件').Asstring ;
          adotable1.fieldbyname('维修系统').Asstring:=hz_f.table1.fieldbyname('维修系统').Asstring ;
          adotable1.fieldbyname('维修工时').Asstring:=hz_f.table1.fieldbyname('维修工时').Asstring ;
          adotable1.fieldbyname('修完时间').Asstring:=hz_f.table1.fieldbyname('修完时间').Asstring ;
          adotable1.fieldbyname('维修耗时').Asstring:=hz_f.table1.fieldbyname('维修耗时').Asstring;
          adotable1.fieldbyname('修理句').Asstring:=hz_f.table1.fieldbyname('修理句').Asstring ;

          adotable1.post;
          end;
         hz_f.table1.Next;
       end;
 close;
//fpass.close;
end;

end;

procedure Tfzjm.N3Click(Sender: TObject);
begin
guanyu.Visible:=true;
end;
procedure Tfzjm.N1Click(Sender: TObject);
begin
 if not assigned(bxb) then
   begin
      application.CreateForm(tbxb,bxb);
      try

       bxb.Showmodal;
      finally
        bxb.Free;
        bxb:=nil;
      end ;
   end
      else
     bxb.Showmodal;
end;

procedure Tfzjm.N2Click(Sender: TObject);
begin
 if not assigned(hz_f) then
   begin
      application.CreateForm(thz_f,hz_f);
      try

       hz_f.Showmodal;
      finally
        hz_f.Free;
        hz_f:=nil;
      end ;
   end
      else
     hz_f.Showmodal;
end;





procedure Tfzjm.N5Click(Sender: TObject);
begin
 if not assigned(fchaxun) then
   begin
      application.CreateForm(tfchaxun,fchaxun);
      try

       fchaxun.Showmodal;
      finally
        fchaxun.Free;
        fchaxun:=nil;
      end ;
   end
      else
     fchaxun.Showmodal;
end;

procedure Tfzjm.N7Click(Sender: TObject);
begin
  if not assigned(tj) then  //kong
   begin
      application.CreateForm(ttj,tj);
      try

       tj.Showmodal;
      finally
        tj.Free;
        // if tj<> nil the
        // tj.dosomething;
        tj:=nil;
      end ;
   end
      else
     tj.Showmodal;
end;

procedure Tfzjm.N6Click(Sender: TObject);
begin
      if not assigned(whsjb) then
   begin
      application.CreateForm(twhsjb,whsjb);
      try

       whsjb.Showmodal;
      finally
        whsjb.Free;
        whsjb:=nil;
      end ;
   end
      else
     whsjb.Showmodal;
end;


procedure Tfzjm.N9Click(Sender: TObject);
begin
zjxyh.visible:=true;

end;

procedure Tfzjm.N10Click(Sender: TObject);
begin
scyh.visible:=true;
end;

procedure Tfzjm.SpeedButton1Click(Sender: TObject);
begin
       fpass.edit1.Text:='';
       fpass.edit2.Text:='';
     fzjm.visible:=false;
     fpass.visible:=true;
     
 end;
procedure Tfzjm.SpeedButton3Click(Sender: TObject);
begin
if not assigned(fchaxun) then
   begin
      application.CreateForm(tfchaxun,fchaxun);
      try

       fchaxun.Showmodal;
      finally
        fchaxun.Free;
        fchaxun:=nil;
      end ;
   end
      else
     fchaxun.Showmodal;
end;

procedure Tfzjm.SpeedButton7Click(Sender: TObject);
begin
 if not assigned(whsjb) then
   begin
      application.CreateForm(twhsjb,whsjb);
      try

       whsjb.Showmodal;
      finally
        whsjb.Free;
        whsjb:=nil;
      end ;
   end
      else
     whsjb.Showmodal;

end;

procedure Tfzjm.N12Click(Sender: TObject);
begin
xgyhm.visible:=true;
end;

procedure Tfzjm.N11Click(Sender: TObject);
begin
 xgmm.visible:=true;
end;

procedure Tfzjm.SpeedButton5Click(Sender: TObject);
begin
    if not assigned(fqxfp) then
   begin
      application.CreateForm(tfqxfp,fqxfp);
      try

       bxb.Showmodal;
      finally
        fqxfp.Free;
        fqxfp:=nil;
      end ;
   end
      else
     fqxfp.Showmodal;


end;

procedure Tfzjm.SpeedButton2Click(Sender: TObject);
begin
 if not assigned(bxb) then
   begin
      application.CreateForm(tbxb,bxb);
      try

       bxb.Showmodal;
      finally
        bxb.Free;
        bxb:=nil;
      end ;
   end
      else
     bxb.Showmodal;
end;

procedure Tfzjm.SpeedButton6Click(Sender: TObject);
begin
   if not assigned(tj) then
   begin
      application.CreateForm(ttj,tj);
      try

       tj.Showmodal;
      finally
        tj.Free;
        tj:=nil;
      end ;
   end
      else
     tj.Showmodal;
end;

procedure Tfzjm.SpeedButton4Click(Sender: TObject);
begin
     if not assigned(hz_f) then
   begin
      application.CreateForm(thz_f,hz_f);
      try

       hz_f.Showmodal;
      finally
        hz_f.Free;
        hz_f:=nil;
      end ;
   end
      else
     hz_f.Showmodal;
end;




procedure Tfzjm.FormShow(Sender: TObject);
begin
    bxb.ServerSocket1.Active:=true;
      with zjxyh.table1 do
          begin
          n8.Enabled:=(lookup('user',fpass.edit1.Text,'class')=0);
          SpeedButton5.enabled:=(lookup('user',fpass.edit1.Text,'class')=0);
          hz_f.MenuADD.Enabled:=(lookup('user',fpass.edit1.Text,'class')=0);
          hz_f.renamenode.Enabled:=(lookup('user',fpass.edit1.Text,'class')=0);
          hz_f.deletechildnode.Enabled:=(lookup('user',fpass.edit1.Text,'class')=0);

          end;

end;


procedure Tfzjm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
fpass.close;
end;

end.