login_man.pas

delphi的一个开发实例

unit Login_Man;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, XPMenu, Grids, StdCtrls,
  DBGrids;

type
  Tfrm_Login_Man = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    XPMenu1: TXPMenu;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Panel3: TPanel;
    GroupBox2: TGroupBox;
    Cmd_Select: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBGrid1: TDBGrid;
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Cmd_SelectClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Login_Man: Tfrm_Login_Man;

implementation

uses Thing_Base, func, Stock_Contract, Data;

{$R *.dfm}

procedure Tfrm_Login_Man.SpeedButton3Click(Sender: TObject);
begin
    frm_data.ClientDataSet2.Active:=false;
    frm_data.ClientDataSet2.Close;
    Close;
end;

procedure Tfrm_Login_Man.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet2.Active:=false;
    frm_data.ClientDataSet2.Close;
    frm_data.ClientDataSet3.Close;
    Action:=Cafree;
end;

procedure Tfrm_Login_Man.SpeedButton2Click(Sender: TObject);
begin
    Do_Result:='';
    Do_Result:='0002';//表示选择了‘内部职员’对象
    frm_Thing_Base:=Tfrm_Thing_Base.Create(self);
    frm_Thing_Base.TabSh1.TabVisible:=False;
    frm_Thing_Base.TabSh2.TabVisible:=True;
    frm_Thing_Base.TabSh3.TabVisible:=False;
    frm_Thing_Base.TabSh4.TabVisible:=False;
    frm_Thing_Base.TabSh5.TabVisible:=False;
    frm_Thing_Base.TabSh6.TabVisible:=False;
    frm_Thing_Base.TabSh7.TabVisible:=False;
    frm_Thing_Base.TabSh8.TabVisible:=False;
    frm_Thing_Base.TabSh9.TabVisible:=False;
    frm_Thing_Base.TabSh10.TabVisible:=False;
    frm_Thing_Base.ShowModal;
    Close;
    frm_Thing_Base.Free;
end;

procedure Tfrm_Login_Man.Cmd_SelectClick(Sender: TObject);
begin
    if (Employe_Check='JSR-0001') or (Employe_Check='Stock_Fad_str') then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Close;
    end;
    if (Employe_Check='Stock_Pay_Str') or (Employe_Check='Goods_Requirement_str') then //采购付款
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Close;
    end;
    if Employe_Check='systemset-001' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close;
    end;
    if Employe_Check='Demand_Enter_Str' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close;
    end;
    if Employe_Check='Demand_Fad_Str' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close;
    end;
    if Employe_Check='CGRK_0001' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close;
    end;
    if Employe_Check='Goods_Write_Str' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close; 
    end;
    if Employe_Check='Quality_Checkstr' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close;
    end;
    if Employe_Check='Storage_Umanage_Fad' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close;
    end;
    if Employe_Check='Storage_price_attemper' then
    begin
        if Trim(LabeledEdit3.Text)='' then
        begin
            Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
            Exit;
        end;
        Employe_Check_Result:=Trim(LabeledEdit3.Text);
        Employe_type:=Trim(LabeledEdit1.Text);
        Close;
    end;
end;

procedure Tfrm_Login_Man.FormShow(Sender: TObject);
begin
    frm_data.DataSource1.Enabled:=False;
    with frm_data.ClientDataSet3 do
    begin
        Close;
        CommandText:='';
        CommandText:='Select employee_NO,employee_name,Part_name from [employee]';
        Open;
        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet3;
        DBgrid1.DataSource:=frm_data.DataSource1;
        if frm_data.ClientDataSet3.RecordCount<>0 then
        begin
            frm_data.DataSource1.Enabled:=True;
            DBGrid1.Columns[0].Title.caption:='员工编号';
            DBGrid1.Columns[1].Title.caption:='员工姓名';
            DBGrid1.Columns[2].Title.caption:='所属部门';
            First;
            LabeledEdit1.Text:=frm_data.ClientDataSet3.FieldValues['Part_name'];
            LabeledEdit2.Text:=frm_data.ClientDataSet3.FieldValues['employee_NO'];
            LabeledEdit3.Text:=frm_data.ClientDataSet3.FieldValues['employee_name'];
        end;
    end;
end;

procedure Tfrm_Login_Man.DBGrid1CellClick(Column: TColumn);
begin
    LabeledEdit1.Text:=frm_data.ClientDataSet3.FieldValues['Part_name'];
    LabeledEdit2.Text:=frm_data.ClientDataSet3.FieldValues['employee_NO'];
    LabeledEdit3.Text:=frm_data.ClientDataSet3.FieldValues['employee_name'];
end;

end.