unit3.pas

中鼎百货进销存系统

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,unit1, DB, ADODB, jpeg, ExtCtrls;

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    con1: TADOConnection;
    ds1: TDataSource;
    Image2: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    function  ConnectDataBase():boolean;
    procedure Button2Click(Sender: TObject);


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

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
sql:string;
func:string;
begin
   sql:='Select usercode,pwd,func from usertable where usercode='''+ edit1.text+''' and pwd='''+edit2.Text +'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(sql);
   ADOQuery1.Open;
   if ADOQuery1.RecordCount>0 then
   begin
   form1.usercode:=edit1.Text;
   func:=ADOQuery1.FieldByName('func').AsString;
   if func='0' then
   begin
   form1.Button1.Enabled:=false;
   form1.Button2.Enabled:=false;
   form1.Button3.Enabled:=false;
   form1.Button4.Enabled:=false;
   form1.Button5.Enabled:=false;
   form1.Button33.Enabled:=false;
   form1.DBGrid1.DataSource:=ds1;
   form1.edit8.Enabled:=false;
   form1.edit9.Enabled:=false;
   form1.edit10.Enabled:=false;
   form1.edit11.Enabled:=false;
   form1.edit17.Enabled:=false;
   form1.edit18.Enabled:=false;
   form1.button25.Enabled:=false;
   form1.button28.Enabled:=false;
   form1.button31.Enabled:=false;
   form1.button32.Enabled:=false;
   end else
   begin
   form1.Button1.Enabled:=true;
   form1.Button2.Enabled:=true;
   form1.Button3.Enabled:=true;
   form1.Button4.Enabled:=true;
   form1.Button5.Enabled:=true;
   form1.Button33.Enabled:=true;
   form1.DBGrid1.DataSource:=form1.DS_input;
   form1.edit8.Enabled:=true;
   form1.edit9.Enabled:=true;
   form1.edit10.Enabled:=true;
   form1.edit11.Enabled:=true;
   form1.edit17.Enabled:=true;
   form1.edit18.Enabled:=true;
   form1.button25.Enabled:=true;
   form1.button28.Enabled:=true;
   form1.button31.Enabled:=true;
   form1.button32.Enabled:=true;
   end;

   form1.ShowModal;
   end
   else
   application.MessageBox('用户名与口令不匹配!','提示',0);
end;

procedure TForm3.FormShow(Sender: TObject);
begin
edit1.SetFocus;
ConnectDataBase;
end;

function TForm3.ConnectDataBase():boolean;
var
 Constr:string;
begin
con1.Close;
 try
  Constr:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=admin;';
  Constr:=Constr+'Data Source='+ExtractFilePath(Application.ExeName)+'database\ZD.mdb;Mode=ReadWrite';
 con1.ConnectionString := Constr;
 con1.Connected:=true;
 result:=true;
 except
 result:=false;
 application.MessageBox('连接数据库失败','提示',1);
 end;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
close;
end;


end.