systemset.pas

delphi的一个开发实例

            begin
                frm_data.DataSource1.Enabled:=False;
                DBGrid2.Enabled:=False;
                Edit_User_ID.Text:='';
                Edit1.Text:='';
                Edit2.Text:='';
                Edit3.Text:='';
            end;
        end;
    except
        Application.MessageBox('系统出错，请检查连接网络是否正常或数据格式是否正确，请确认！',pchar(application.Title),mb_iconwarning);
    end;
end;

procedure Tfrm_SystemSet.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet_Add.Active:=false;
    frm_data.ClientDataSet_Add.Close;
    Action:=cafree;
end;

procedure Tfrm_SystemSet.DBGrid2CellClick(Column: TColumn);
begin
    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;

procedure Tfrm_SystemSet.FormShow(Sender: TObject);
begin
    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:='用户口令';
                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
            begin
                frm_data.DataSource1.Enabled:=False;
                DBGrid2.Enabled:=False;
                Edit_User_ID.Text:='';
                Edit1.Text:='';
                Edit2.Text:='';
                Edit3.Text:='';
            end;
        end;
    except
        Application.MessageBox('系统出错，请检查连接网络是否正常或数据格式是否正确，请确认！',pchar(application.Title),mb_iconwarning);
    end;
end;

procedure Tfrm_SystemSet.Cmd_E_EditClick(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');
    if Application.MessageBox('确定需要修改光标所在的行记录吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                CommandText:='';   
                CommandText:='update [Chang] set Employe_Name='''+Trim(Edit1.Text)+''',Part='''+Trim(Edit2.Text)+''',User_Pwd='''+temppwd+''' where ID='''+Trim(Edit_User_ID.Text)+'''';
                Execute;

                Close;
                CommandText:='';
                CommandText:='select ID,Employe_Name,Part,User_Pwd from [Chang] order by ID';
                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);
            except
                application.MessageBox('修改操作失败，请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_SystemSet.Cmd_E_DeleteClick(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');
    if Application.MessageBox('确定需要删除改光标所在的行记录吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                CommandText:='';   
                CommandText:='delete [Chang] where ID='''+Trim(Edit_User_ID.Text)+'''';
                Execute;

                Close;
                CommandText:='';
                CommandText:='select ID,Employe_Name,Part,User_Pwd from [Chang] order by ID';
                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.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'];
                end
                else
                begin
                    frm_data.DataSource1.Enabled:=false;
                    DBGrid2.Enabled:=False;
                    Edit_User_ID.Text:='';
                    Edit1.Text:=''; Edit2.Text:='';Edit3.Text:='';
                end;
                Application.MessageBox('删除操作成功，请确认！',pchar(application.Title),mb_iconwarning);
            except
                application.MessageBox('删除操作失败，请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        end;
    end;
end;

end.