systemset.pas

delphi的一个开发实例

unit SystemSet;

interface

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

type
  Tfrm_SystemSet = class(TForm)
    GroupBox1: TGroupBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Cmd_L_Add: TSpeedButton;
    Cmd_L_Delete: TSpeedButton;
    Cmd_L_Edit: TSpeedButton;
    Cmd_L_Save: TSpeedButton;
    Cmd_L_Exit: TSpeedButton;
    XPMenu1: TXPMenu;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    ToolBar2: TToolBar;
    Cmd_E_Add: TSpeedButton;
    Cmd_E_Delete: TSpeedButton;
    Cmd_E_Edit: TSpeedButton;
    Cmd_E_Save: TSpeedButton;
    Cmd_E_Exit: TSpeedButton;
    GroupBox2: TGroupBox;
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    Edit_User_ID: TEdit;
    procedure Cmd_L_AddClick(Sender: TObject);
    procedure Cmd_E_SaveClick(Sender: TObject);
    procedure Cmd_E_ExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure Cmd_E_EditClick(Sender: TObject);
    procedure Cmd_E_DeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_SystemSet: Tfrm_SystemSet;
  temppwd:string;
implementation

uses Data, Login_Man, func;

{$R *.dfm}

procedure Tfrm_SystemSet.Cmd_L_AddClick(Sender: TObject);
begin
    Edit_User_ID.Text:='';
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Cmd_E_Save.Enabled:=True;
    Cmd_E_Add.Enabled:=False;
    Cmd_E_Delete.Enabled:=False;
    Cmd_E_Edit.Enabled:=False;
    Employe_Check:='';
    Employe_type:='';
    Employe_Check_Result:='';
    Employe_Check:='systemset-001';

    frm_Login_Man:=Tfrm_Login_Man.Create(self);
    frm_Login_Man.ShowModal;
    Edit1.Text:=Employe_Check_Result;
    Edit2.Text:=Employe_type;
    frm_Login_Man.Free;
end;

procedure Tfrm_SystemSet.Cmd_E_SaveClick(Sender: TObject);

begin
    if Trim(Edit1.Text)='' then
    begin
        Application.MessageBox('操作失败，【员工姓名】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    if Trim(Edit2.Text)='' then
    begin
        Application.MessageBox('操作失败，【所属部门】不能为空，请确认！',pchar(application.Title),mb_iconwarning);
        Exit;
    end;
    if Trim(Edit3.Text)='' then
    begin
        Edit3.Text:='000000';
    end;
    temppwd:=Decrypt(trim(Edit3.Text),'luersoft');
    try
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='Select * from [Chang] where Employe_Name='''+Trim(Edit1.Text)+''' and Part='''+Trim(Edit2.Text)+'''';
            Open;
            if frm_data.ClientDataSet_Add.RecordCount<>0 then
            begin
                Application.MessageBox('添加失败，该用户名已经存在，请确认！',pchar(application.Title),mb_iconwarning);
                Cmd_E_Save.Enabled:=False;
                Cmd_E_Add.Enabled:=True;
                Cmd_E_Delete.Enabled:=True;
                Cmd_E_Edit.Enabled:=True;
                Exit;
            end;
            if frm_data.ClientDataSet_Add.RecordCount=0 then
            begin
                try
                    with frm_data.ClientDataSet_Add do
                    begin
                        Close;
                        CommandText:='';
                        CommandText:='insert into [Chang] (Employe_Name,Part,User_Pwd) values ('''+Trim(Edit1.Text)+''','''+Trim(Edit2.Text)+''','''+temppwd+''')';
                        Execute;

                        Close;
                        CommandText:='';
                        Commandtext:='Select ID,Employe_Name,Part,User_Pwd from [Chang]';
                        Open;
                        frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                        frm_data.DataSource1.Enabled:=false;
                        frm_data.DataSource1.Enabled:=true;
                        DBGrid2.DataSource:=frm_data.DataSource1;
                        DBGrid2.Enabled:=True;
                        DBGrid2.Columns[0].Title.caption:='序号';
                        DBGrid2.Columns[1].Title.caption:='用户名称';
                        DBGrid2.Columns[2].Title.caption:='所属部门';
                        DBGrid2.Columns[3].Title.caption:='用户口令';
                        first;
                        Edit_User_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                        Edit1.Text:=frm_data.ClientDataSet_Add.FieldValues['Employe_Name'];
                        Edit2.Text:=frm_data.ClientDataSet_Add.FieldValues['Part'];
                        Edit3.Text:=frm_data.ClientDataSet_Add.FieldValues['User_Pwd'];
                        Application.MessageBox('添加操作成功，请确认！',pchar(application.Title),mb_iconwarning);
                        Cmd_E_Save.Enabled:=False;
                        Cmd_E_Add.Enabled:=True;
                        Cmd_E_Delete.Enabled:=True;
                        Cmd_E_Edit.Enabled:=True;
                    end;
                except
                    Application.MessageBox('添加失败，请检查连接网络是否正常或数据格式是否正确，请确认！',pchar(application.Title),mb_iconwarning);
                end;
            end;
        end;
    except
        Application.MessageBox('添加失败，请检查连接网络是否正常或数据格式是否正确，请确认！',pchar(application.Title),mb_iconwarning);
    end;
end;

procedure Tfrm_SystemSet.Cmd_E_ExitClick(Sender: TObject);
begin
    Cmd_E_Save.Enabled:=False;
    Cmd_E_Add.Enabled:=True;
    Cmd_E_Delete.Enabled:=True;
    Cmd_E_Edit.Enabled:=True;
    try
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            Commandtext:='Select ID,Employe_Name,Part,User_Pwd from [Chang]';
            Open;
            frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
            frm_data.DataSource1.Enabled:=false;
            if frm_data.ClientDataSet_Add.RecordCount<>0 then
            begin
                frm_data.DataSource1.Enabled:=true;
                DBGrid2.Enabled:=true;
                DBGrid2.DataSource:=frm_data.DataSource1;
                DBGrid2.Columns[0].Title.caption:='序号';
                DBGrid2.Columns[1].Title.caption:='用户名称';
                DBGrid2.Columns[2].Title.caption:='所属部门';
                DBGrid2.Columns[3].Title.caption:='用户口令';
                DBGrid2.Columns[3].Free;
                first;
                Edit_User_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                Edit1.Text:=frm_data.ClientDataSet_Add.FieldValues['Employe_Name'];
                Edit2.Text:=frm_data.ClientDataSet_Add.FieldValues['Part'];
                Edit3.Text:=frm_data.ClientDataSet_Add.FieldValues['User_Pwd'];
            end
            else