login.pas

大型分布式销售管理系统,DELPHI编写,商业源代码,现在已经商用,下载者严禁出售该代码,只可以自己学习,包含数据库文件

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, DBCtrls;

type
  Tform_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ADOQuery2: TADOQuery;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure AddOffice();
    procedure AddUser();

  public
    { Public declarations }
  end;

var
  form_login: Tform_login;
  ifFirst:boolean;

implementation

uses wxp_dm, Unit_wxp;

{$R *.dfm}

procedure Tform_login.FormCreate(Sender: TObject);
begin
     //with ADOQuery1 do
     AddOffice;
     AddUser;

end;


//增加所有办事处
procedure  Tform_login.AddOffice ();

begin
     with ADOQuery1 do
     begin
          Active :=false;
          SQL.Clear ;
          SQL.Add('select * from pub_z_register');
          active:=true ;
          if Bof and Eof then
          begin
             ifFirst:=true;
             ADOQuery2.Active :=false;
             ADOQuery2.SQL.Clear ;
             ADOQuery2.SQL.Add('select * from pub_z_office');
             AdoQuery2.Active :=true;
             while not  ADOQuery2.Eof do
             begin

                  //showmessage(ADOQuery2.FieldValues['办事处名称'] );
                  combobox1.Items.Add(ADOQuery2.Fields.Fields[1].AsString );

                  ADOQuery2.Next ;


             end;
             combobox1.ItemIndex :=0;
             ADOQuery2.Active :=false;
          end
          else
             begin
             ifFirst:=false;
             ADOQuery2.Active :=false;
             ADOQuery2.SQL.Clear ;
             ADOQuery2.SQL.Add('select * from pub_z_register');
             AdoQuery2.Active :=true;
             combobox1.Items.Add(ADOQuery2.Fields.Fields[1].AsString );
             combobox1.ItemIndex :=0;
             ADOQuery2.Active :=false;
             //combobox1.Style := csOwnerDrawFixed
             unit_wxp.myOffice :=ADOQuery1.Fields.Fields[1].AsString ;
             end;
     end;
     ADOQuery1.Active :=false;

end;



//加入用户
procedure  Tform_login.AddUser ();
begin
     ADOQuery1.Active :=false;
     ADOQuery1.SQL.Clear ;
     ADOQuery1.SQL.Add('select 用户名 from pub_z_user');
     ADOQuery1.Active :=true;
     while not ADOQuery1.Eof do
     begin
          combobox2.Items.Add(ADOQuery1.Fields.Fields[0].AsString );
          ADOQuery1.Next ;
     end;
     combobox2.ItemIndex :=0;
end;



procedure Tform_login.Button1Click(Sender: TObject);
begin
     if ifFirst=true then
     begin
          ADOQuery1.SQL.Clear ;
          ADOQuery1.SQL.Add('insert into pub_z_register (办事处) values (' + combobox1.Text +
          ')');
          ADOQuery1.ExecSQL ;
     end;
    ADOQuery2.SQL.Clear ;
    ADOQuery2.SQL.Add('select * from pub_z_user where 用户名='''+combobox2.Text +''' and     密码='''
     + edit1.text + ''''   );
     ADOQuery2.Active :=true ;
    if ADOQuery2.eof=true then
    begin
         showmessage('密码输入错误');
         edit1.SetFocus ;
    end
    else
    begin
     

    end;
    ADOQuery2.Active :=false;

end;

end.