clogin.pas

根据箱号

unit Clogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Cmodel, Menus, StdCtrls, ExtCtrls, Buttons, DB, ADODB, XPMan;

type
  Tlogin = class(Tmodel)
    Panel1: TPanel;
    Image2: TImage;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    Image5: TImage;
    Edit1: TEdit;
    Label5: TLabel;
    ComboBox1: TComboBox;
    Label6: TLabel;
    ok: TBitBtn;
    close2: TBitBtn;
    Image6: TImage;
    ADOQuery1: TADOQuery;
    Label9: TLabel;
    XPManifest1: TXPManifest;
    Panel3: TPanel;
    Image4: TImage;
    BitBtn1: TBitBtn;
    Label7: TLabel;
    StaticText1: TStaticText;
    Label10: TLabel;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    procedure close2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure okClick(Sender: TObject);
    procedure closeiconClick(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;
implementation
  uses cdata,cmain,IniFiles,login_dC;
{$R *.dfm}

procedure Tlogin.close2Click(Sender: TObject);
begin
  inherited;       
  main.Close;
end;

procedure Tlogin.BitBtn1Click(Sender: TObject);
var
 inifile: TIniFile;
  nn:string;
begin
  inherited;
  combobox1.Clear;
  try
    data.ADOConnection1.Connected :=false;
    image4.Visible:=false;
    label7.Visible:=false;
    data.ADOConnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\'+main.dataip+'\手机销售管理系统\data\'+main.dataname+'.MDB;Persist Security Info=False;Jet OLEDB:Database Password='+main.datapass+';User ID='+main.datauser+'';
    data.ADOConnection1.Connected :=True;
    combobox1.Enabled:=true;
    edit1.Enabled:=true;
    image4.Visible:=true;
    label7.Visible:=true;
    adoquery1.Close;
    adoquery1.SQL.clear;
    adoquery1.SQL.add('select * from 操作人员');
    adoquery1.Open;
    while not adoquery1.Eof do
      begin
        combobox1.Items.Add(adoquery1.fieldbyname('操作人员').asstring);
        adoquery1.Next;
      end;
    if FileExists(Trim(ExtractFilePath(Application.ExeName)+'USER.ini')) = True then
       begin
         Try
           inifile := TIniFile.Create(Trim(ExtractFilePath(Application.ExeName))+'USER.ini');
           nn:=inifile.ReadString('最近操作信息','操作员','');
           combobox1.Text:=nn;
         Finally
           Inifile.Free;
         End;
       end
    else
       begin
         Try
           inifile := TIniFile.Create(Trim(ExtractFilePath(Application.ExeName))+'USER.ini');
           with Inifile do
           begin
             Writestring('最近操作信息','操作员','');
           end;
         Finally
          Inifile.Free;
        End;
    end;
    main.StatusBar1.Panels[3].Text:=combobox1.Text;
    ok.Enabled:=true;
    close2.Enabled:=true;
    edit1.SetFocus;
  except
      application.MessageBox('不能与数据源连接,请测试是否能访问服务器,请重新连接!','提示',64);
  end;
end;

procedure Tlogin.okClick(Sender: TObject);
begin
  inherited;
  adoquery1.Close;
  adoquery1.SQL.clear;
  adoquery1.SQL.add('select * from 操作人员 where 操作人员='''+combobox1.Text+'''');
  adoquery1.Open;
  if trim(adoquery1.FieldByName('密码').AsString)=trim(edit1.Text) then
     begin    
       main.Enabled:=true;
       login.Hide;
       main.StatusBar1.Panels[3].Text:=''+combobox1.text+'';
       if adoquery1.FieldByName('操作员管理').AsString='1' then
          main.mczygl.Enabled:=true
       else
          main.mczygl.Enabled:=false;
       if adoquery1.FieldByName('密码管理').AsString='1' then
          main.mmmgl.Enabled:=true
       else
          main.mmmgl.Enabled:=false;
       if adoquery1.FieldByName('数据库备份').AsString='1' then
          main.msjkbf.Enabled:=true
       else
          main.msjkbf.Enabled:=false;
        if adoquery1.FieldByName('数据库上传').AsString='1' then
          main.msjksc.Enabled:=true
       else
          main.msjksc.Enabled:=false;
       if adoquery1.FieldByName('数据库整理').AsString='1' then
          main.msjkzl.Enabled:=true
       else
          main.msjkzl.Enabled:=false;
       if adoquery1.FieldByName('发货机率').AsString='1' then
          main.msfhjl.Enabled:=true
       else
          main.msfhjl.Enabled:=false;
       if adoquery1.FieldByName('程序上传').AsString='1' then
          main.mcxsc.Enabled:=true
       else
          main.mcxsc.Enabled:=false;
      if main.jsxxts.Enabled=true then
        main.jsxxts.Click;
      main.userdm:=adoquery1.fieldbyname('操作代码').AsString;
      main.usermc:=adoquery1.fieldbyname('操作人员').AsString;
     end
  else
     begin
       application.MessageBox('密码错误，请重新输入@!','提示',64);
       edit1.Clear;
       edit1.SetFocus;
       modalresult:=mrnone; 
     end;
end;

procedure Tlogin.closeiconClick(Sender: TObject);
begin
  inherited;
  main.Close;
end;

procedure Tlogin.ComboBox1Change(Sender: TObject);
var
  inifile:tinifile;
begin
  inherited;
   main.StatusBar1.Panels[3].Text:=combobox1.Text;
   if FileExists(Trim(ExtractFilePath(Application.ExeName)+'USER.ini')) = True then
       begin
         Try
           inifile := TIniFile.Create(Trim(ExtractFilePath(Application.ExeName))+'USER.ini');
           with inifile do
             begin
               Writestring('最近操作信息','操作员',trim(combobox1.Text));
             end;
         Finally
           Inifile.Free;
         End;
       end;
end;

procedure Tlogin.Image1DblClick(Sender: TObject);
begin
  //inherited;
end;

procedure Tlogin.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//  inherited;  
end;

procedure Tlogin.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if key=#13 then
     edit1.SetFocus;
end;

procedure Tlogin.BitBtn2Click(Sender: TObject);
begin
  inherited;
   Application.CreateForm(Tlogin_d, login_d);
   login_d.ShowModal;
   if login_d.ModalResult=mrok then
      begin
        label1.Visible:=false;
        image4.Visible:=false;
        combobox1.Enabled:=false;
        edit1.Enabled:=false;
        ok.Enabled:=false;
        close2.Enabled:=false;    
        edit2.Text:=login_d.adoQuery1.fieldbyname('账套名称').AsString;
        main.dataip:=login_d.adoQuery1.fieldbyname('IP').AsString;
        main.dataname:=login_d.adoQuery1.fieldbyname('数据库名称').AsString;
        main.datauser:=login_d.adoQuery1.fieldbyname('用户名').AsString;
        main.datapass:=login_d.adoQuery1.fieldbyname('密码').AsString
      end;
end;

procedure Tlogin.FormCreate(Sender: TObject);
var
path1:string;
begin
  inherited;
  path1:=ExtractFilePath(Application.ExeName);
  data.adocon2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path1+'login.mdb;Persist Security Info=False; Jet OLEDB:Database Password=cchxd';
  adoquery2.close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add('select * from login order by 使用频率 desc');
  adoquery2.Open;
  edit2.Text:=adoquery2.fieldbyname('账套名称').AsString;
  adoquery3.close;
  adoquery3.SQL.Clear;
  adoquery3.sql.Add('select * from login where 账套名称='''+trim(edit2.Text)+'''');
  adoquery3.Open;
  main.dataip:=adoQuery3.fieldbyname('IP').AsString;
  main.dataname:=adoQuery3.fieldbyname('数据库名称').AsString;
  main.datauser:=adoQuery3.fieldbyname('用户名').AsString;
  main.datapass:=adoQuery3.fieldbyname('密码').AsString

end;

end.