?? systemset.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -