mainunit.~pas

完整的ic卡管理软件

unit mainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, Menus, bsSkinCtrls, ExtCtrls, jpeg, ComCtrls,
  DBCtrls, bsSkinBoxCtrls, bsMessages, StdCtrls;

type
  TmainForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    bsSkinMainMenu1: TbsSkinMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    IC1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    bsSkinToolBar1: TbsSkinToolBar;
    bsSkinSpeedButton1: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    bsSkinSpeedButton3: TbsSkinSpeedButton;
    N10: TMenuItem;
    Timer1: TTimer;
    IC2: TMenuItem;
    N11: TMenuItem;
    IC3: TMenuItem;
    IC4: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    IC5: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N17: TMenuItem;
    N2: TMenuItem;
    N14: TMenuItem;
    bsSkinSpeedButton4: TbsSkinSpeedButton;
    N22: TMenuItem;
    N23: TMenuItem;
    bsSkinStatusBar1: TbsSkinStatusBar;
    bsSkinStatusPanel1: TbsSkinStatusPanel;
    bsSkinStatusPanel2: TbsSkinStatusPanel;
    bsSkinStatusPanel3: TbsSkinStatusPanel;
    bsSkinStatusPanel4: TbsSkinStatusPanel;
    N12: TMenuItem;
    bsSkinMessage1: TbsSkinMessage;
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
   // procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure IC2Click(Sender: TObject);
    procedure IC3Click(Sender: TObject);
    procedure IC4Click(Sender: TObject);
    procedure bsSkinSpeedButton4Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure bsSkinSpeedButton1Click(Sender: TObject);
    procedure IC5Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N14Click(Sender: TObject);
    procedure bsSkinSpeedButton2Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
  //  procedure N22Click(Sender: TObject);
  private
    
    { Private declarations }
  public

   
    { Public declarations }
  end;

var
  mainForm: TmainForm;
  useName:string;  //用户名
  usepowd:string;   //密码
  power:integer;  //权限
  Port: string;    //端口
  Speed: string;   //传输率
  DataBit:string;  //数据位
  CheckBit:string;  // 效验位
  StopBit:string;   //停止位
  hthread:thandle;//定义一个句柄
  threadid:dword;
  function mythreadfunc(p:pointer):longint;stdcall;

implementation
 uses
  datamodel,welcomUnit, logUnit, closeUnit, user1Unit, NewCarUnit,
  passwordUnit,alterUnit,lostUnit,logoutUnit,comUnit,alarm_adressUnit,personUnit,
  readUnit,seekCarUnit,seekAlarmUnit,unlostUnit,alarmMISUnit;

{$R *.dfm}

procedure TmainForm.FormShow(Sender: TObject);
begin
  welcomform:=Twelcomform.Create(application);
  welcomform.ShowModal;
  //*******连接数据库字符串******************
  datamodule1.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getcurrentdir+'\db1.mdb;Persist Security Info=False;jet oledb:database';
  datamodule1.ADOConnection1.Connected:=true;
  bsSkinToolBar1.Visible:=false;
  n10.Visible:=false;

  n5.Visible:=true;
 // N12.Visible:=false;
  
  Timer1.Enabled:=true;
  hthread:=createthread(nil,0,@mythreadfunc,nil,0,threadid);//*****检测是否连接读卡器********
 


  bsSkinStatusPanel4.Caption:='当前日期:'+datetostr(date)+timetostr(time);

 // bsSkinStatusPanel4.Caption:=' 沈阳瀚正科技:客户服务电话####' ;
 
 


end;

procedure TmainForm.N2Click(Sender: TObject);
begin
   logform:=Tlogform.Create(nil);
    logform.Show;
end;



procedure TmainForm.Timer1Timer(Sender: TObject);
begin
    Timer1.Enabled:=false;
    logform:=Tlogform.Create(nil);
    logform.ShowModal;

end;

procedure TmainForm.N3Click(Sender: TObject);
begin
    logform:=Tlogform.Create(nil);
    logform.ShowModal;

end;

procedure TmainForm.N5Click(Sender: TObject);
begin

    mainform.Close;
  
end;

{procedure TmainForm.N17Click(Sender: TObject);
begin
　//　userForm.Show;  　　　　
end;  }

procedure TmainForm.N18Click(Sender: TObject);
begin
 passwordForm:=TpasswordForm.Create(nil);
 passwordForm.ShowModal;
end;

procedure TmainForm.N17Click(Sender: TObject);
begin
 user1Form:=Tuser1Form.Create(nil);
 user1Form.ShowModal;
end;

procedure TmainForm.N10Click(Sender: TObject);
begin

  NewCarForm:=TNewCarForm.Create(nil);
  st:=ic_exit(icdev);          //退出串口
  NewCarForm.ShowModal;
end;

procedure TmainForm.IC2Click(Sender: TObject);
begin
  st:=ic_exit(icdev);          //退出串口
 alterform:=Talterform.Create(nil);
 alterform.ShowModal;
end;

procedure TmainForm.IC3Click(Sender: TObject);
begin
 lostform:=Tlostform.Create(nil);
 lostform.ShowModal;
end;

procedure TmainForm.IC4Click(Sender: TObject);
begin
  logoutform:=Tlogoutform.Create(nil);
  logoutform.ShowModal;
end;

procedure TmainForm.bsSkinSpeedButton4Click(Sender: TObject);
begin
    personform:=Tpersonform.Create(nil);
    personform.ShowModal;
end;



procedure TmainForm.N22Click(Sender: TObject);
begin
   adressform:=Tadressform.Create(nil);
   adressform.ShowModal;
end;

procedure TmainForm.N23Click(Sender: TObject);
begin
    personform:=Tpersonform.Create(nil);
    personform.ShowModal;
end;

procedure TmainForm.N15Click(Sender: TObject);
begin
  
  readform:=Treadform.Create(nil);
   st:=ic_exit(icdev);          //退出串口
  readform.ShowModal;
end;

procedure TmainForm.bsSkinSpeedButton1Click(Sender: TObject);
begin

   readform:=Treadform.Create(nil);
   st:=ic_exit(icdev);          //退出串口
   readform.ShowModal;
end;

procedure TmainForm.IC5Click(Sender: TObject);
begin
  seekCarform:=TseekCarform.Create(nil);
  seekCarform.ShowModal;
end;

procedure TmainForm.N16Click(Sender: TObject);
begin
  alarmMISform:=TalarmMISform.Create(nil);
  alarmMISform.ShowModal;
end;

procedure TmainForm.FormCreate(Sender: TObject);

begin
    st:=ic_exit(icdev);  //退出串口
   // NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName('db1.mdb');
  //  datamodule1.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getcurrentdir+'\db1.mdb;Persist Security Info=False;jet oledb:database';

end;

procedure TmainForm.N12Click(Sender: TObject);
begin
    seekalarmform:=Tseekalarmform.Create(nil);
    seekalarmform.ShowModal;
end;

procedure TmainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     if mainform.bsSkinMessage1.MessageDlg('确定退出系统？',mtInformation,[mbyes,mbno],0)=mrno
       then abort
       else
       begin
         datamodule1.ADOConnection1.Connected:=false; //**断开数据库连接
       end;
end;

procedure TmainForm.N14Click(Sender: TObject);
begin
   unlostform:=Tunlostform.Create(nil);
   unlostform.ShowModal;
end;

procedure TmainForm.bsSkinSpeedButton2Click(Sender: TObject);
begin
    seekalarmform:=Tseekalarmform.Create(nil);
    seekalarmform.ShowModal;
end;

procedure TmainForm.N20Click(Sender: TObject);

begin
    Application.HelpCommand(Help_Contents,0); //***帮助
end;
//********建立检测IC卡连接线程
function mythreadfunc(p:pointer):longint;stdcall;
var
  dc:hdc;
begin
  dc:=getdc(mainform.handle);
  with mainform do
  begin
     icdev:=auto_init(0,9600);  //初始化串口一，并将读写器波特率设置为9600
  if icdev<=0 then
       begin
          bsSkinStatusPanel2.Caption:='读卡器连接失败';

       end

     else
      begin
         bsSkinStatusPanel2.Caption:='读卡器已连接';
        st:=chk_24c64(icdev);           //检测是否24c64卡
         if st<>0 then
           begin
           bsSkinStatusPanel3.Caption:='读卡器未插入卡';
          end
        else
            bsSkinStatusPanel3.Caption:='读卡器已插卡';
      end;
  end;
  releasedc(mainform.handle,dc);
end;


end.