?? parameter_set.pas
字號(hào):
procedure Tfrm_Parameter_Set.SpeedButton1Click(Sender: TObject);
begin
LabeledEdit3.SetFocus;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select * from [staff_Type] order by ID';
try
open;
if frm_data.ClientDataSet_Add.RecordCount>0 then
begin
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
DBGrid1.DataSource:=frm_data.DataSource1;
DBGrid1.Columns[0].Title.caption:='自動(dòng)序號(hào)';
DBGrid1.Columns[1].Title.caption:='類型編號(hào)';
DBGrid1.Columns[2].Title.caption:='類型名稱';
end;
except
application.MessageBox('連接【遠(yuǎn)程服務(wù)器】出錯(cuò)！'+#13#10+'請(qǐng)檢查連接網(wǎng)絡(luò)是否正常。請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
end;
end;
procedure Tfrm_Parameter_Set.SpeedButton4Click(Sender: TObject);
begin
if Trim(LabeledEdit2.Text)='' then
begin
application.MessageBox('添加失敗,［人員類型編號(hào)］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit2.SetFocus;
Exit;
end;
if Trim(LabeledEdit3.Text)='' then
begin
application.MessageBox('添加失敗,［人員類型名稱］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit3.SetFocus;
Exit;
end;
with frm_data.ClientDataSet_Add do
begin
try
Close;
CommandText:='';
CommandText:='select * from [staff_Type] where staff_No='''+Trim(LabeledEdit2.Text)+''' and staff_Name='''+Trim(LabeledEdit3.Text)+'''';
open;
if frm_data.ClientDataSet_Add.RecordCount>0 then
begin
application.MessageBox('添加失敗,該記錄已經(jīng)存在，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end
else
try
begin
//Close;
frm_data.ClientDataSet_Add.Insert;
frm_data.ClientDataSet_Add.FieldByName('staff_No').AsString:=Trim(LabeledEdit2.Text);
frm_data.ClientDataSet_Add.FieldByName('staff_Name').AsString:=Trim(LabeledEdit3.Text);
frm_data.ClientDataSet_Add.Post;
//CommandText:='';
//CommandText:='insert into [staff_Type](staff_No,staff_Name)values('''+Trim(LabeledEdit2.Text)+''','''+Trim(LabeledEdit3.Text)+''')';
//Execute;
//post;
//Close;
//CommandText:='';
//CommandText:='select * from [staff_Type]order by ID';
//Open;
frm_data.ClientDataSet_Add.SaveToFile('clientdataback.cds');//保存本地?cái)?shù)據(jù)（公文包）格式是Cds的
frm_data.DataSource1.Enabled:=False;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
frm_data.DataSource1.Enabled:=True;
Dbgrid1.DataSource:=frm_data.DataSource1;
DBGrid1.Columns[0].Title.caption:='自動(dòng)序號(hào)';
DBGrid1.Columns[1].Title.caption:='類型編號(hào)';
DBGrid1.Columns[2].Title.caption:='類型名稱';
application.MessageBox('添加成功',pchar(application.Title),mb_iconwarning);
end;
except
application.MessageBox('添加失敗，請(qǐng)檢查連接網(wǎng)絡(luò)是否正常或數(shù)據(jù)格式是否正確，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
except
application.MessageBox('添加失敗請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
end;
end;
procedure Tfrm_Parameter_Set.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_data.ClientDataSet_Add.Active:=False;
frm_data.ClientDataSet_Add.Close;
frm_data.ClientDataSet2.Active:=False;
frm_data.ClientDataSet2.Close;
Action:=cafree;
end;
procedure Tfrm_Parameter_Set.SpeedButton2Click(Sender: TObject);
begin
if Trim(LabeledEdit2.Text)='' then
begin
application.MessageBox('刪除操作失敗,［人員類型編號(hào)］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit2.SetFocus;
Exit;
end;
if Trim(LabeledEdit3.Text)='' then
begin
application.MessageBox('刪除操作失敗,［人員類型名稱］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit3.SetFocus;
Exit;
end;
if Application.MessageBox('確定需要?jiǎng)h除光標(biāo)所在的行記錄嗎？請(qǐng)確認(rèn)！',pchar(application.Title),mb_okcancel)=idok then
begin
with frm_data.ClientDataSet_Add do
begin
try
Close;
CommandText:='';
CommandText:='delete [staff_Type] where ID='''+Trim(LabeledEdit1.Text)+'''';
Execute;
Close;
CommandText:='';
CommandText:='select * from [staff_Type]order by ID';
Open;
DBGrid1.Columns[0].Title.caption:='自動(dòng)序號(hào)';
DBGrid1.Columns[1].Title.caption:='類型編號(hào)';
DBGrid1.Columns[2].Title.caption:='類型名稱';
application.MessageBox('刪除操作成功',pchar(application.Title),mb_iconwarning);
except
application.MessageBox('刪除操作失敗，請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
end;
end;
end;
procedure Tfrm_Parameter_Set.DBGrid1CellClick(Column: TColumn);
begin
LabeledEdit1.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
LabeledEdit2.Text:=frm_data.ClientDataSet_Add.FieldValues['staff_NO'];
LabeledEdit3.Text:=frm_data.ClientDataSet_Add.FieldValues['staff_Name'];
showmessage(column.Field.AsString);
//showmessage(dbgrid1.Columns.Items[0].Field.asstring);//items[0]顯示的是第一列,修改items里參數(shù),可達(dá)到你要顯示的列.
end;
procedure Tfrm_Parameter_Set.SpeedButton3Click(Sender: TObject);
begin
if Trim(LabeledEdit2.Text)='' then
begin
application.MessageBox('修改操作失敗,［人員類型編號(hào)］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit2.SetFocus;
Exit;
end;
if Trim(LabeledEdit3.Text)='' then
begin
application.MessageBox('修改操作失敗,［人員類型名稱］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit3.SetFocus;
Exit;
end;
if Application.MessageBox('確定需要修改光標(biāo)所在的行記錄嗎？請(qǐng)確認(rèn)！',pchar(application.Title),mb_okcancel)=idok then
begin
with frm_data.ClientDataSet_Add do
begin
try
Close;
CommandText:='';
CommandText:='update [staff_Type] set staff_No='''+Trim(LabeledEdit2.Text)+''',staff_Name='''+Trim(LabeledEdit3.Text)+''' where ID='''+Trim(LabeledEdit1.Text)+'''';
Execute;
Close;
CommandText:='';
CommandText:='select * from [staff_Type] order by ID';
Open;
DBGrid1.Columns[0].Title.caption:='自動(dòng)序號(hào)';
DBGrid1.Columns[1].Title.caption:='類型編號(hào)';
DBGrid1.Columns[2].Title.caption:='類型名稱';
application.MessageBox('修改操作成功',pchar(application.Title),mb_iconwarning);
except
application.MessageBox('修改操作失敗，請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
end;
end;
end;
procedure Tfrm_Parameter_Set.SpeedButton14Click(Sender: TObject);
begin
if Trim(LabeledEdit5.Text)='' then
begin
application.MessageBox('添加操作失敗,［民族編號(hào)］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit5.SetFocus;
Exit;
end;
if Trim(LabeledEdit6.Text)='' then
begin
application.MessageBox('添加操作失敗,［民族名稱］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit6.SetFocus;
Exit;
end;
with frm_data.ClientDataSet_Add do
begin
try
Close;
CommandText:='';
CommandText:='select * from [Nation] where Nation_No='''+Trim(LabeledEdit5.Text)+''' and Nation_Name='''+Trim(LabeledEdit6.Text)+'''';
open;
if frm_data.ClientDataSet_Add.RecordCount>0 then
begin
application.MessageBox('添加操作失敗,該記錄已經(jīng)存在，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
Exit;
end
else
try
begin
Close;
CommandText:='';
CommandText:='insert into [Nation](Nation_No,Nation_Name)values('''+Trim(LabeledEdit5.Text)+''','''+Trim(LabeledEdit6.Text)+''')';
Execute;
Close;
CommandText:='';
CommandText:='select * from [Nation]order by ID';
Open;
frm_data.DataSource1.Enabled:=False;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
frm_data.DataSource1.Enabled:=True;
Dbgrid2.DataSource:=frm_data.DataSource1;
DBGrid2.Columns[0].Title.caption:='自動(dòng)序號(hào)';
DBGrid2.Columns[1].Title.caption:='民族編號(hào)';
DBGrid2.Columns[2].Title.caption:='民族名稱';
application.MessageBox('添加操作成功',pchar(application.Title),mb_iconwarning);
end;
except
application.MessageBox('添加操作失敗，請(qǐng)檢查連接網(wǎng)絡(luò)是否正常或數(shù)據(jù)格式是否正確，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
except
application.MessageBox('添加操作失敗請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
end;
end;
procedure Tfrm_Parameter_Set.SpeedButton12Click(Sender: TObject);
begin
if Trim(LabeledEdit5.Text)='' then
begin
application.MessageBox('刪除操作失敗,［民族編號(hào)］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit5.SetFocus;
Exit;
end;
if Trim(LabeledEdit6.Text)='' then
begin
application.MessageBox('刪除操作失敗,［民族名稱］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit6.SetFocus;
Exit;
end;
if Application.MessageBox('確定需要?jiǎng)h除光標(biāo)所在的行記錄嗎？請(qǐng)確認(rèn)！',pchar(application.Title),mb_okcancel)=idok then
begin
with frm_data.ClientDataSet_Add do
begin
try
Close;
CommandText:='';
CommandText:='delete [Nation] where ID='''+Trim(LabeledEdit4.Text)+'''';
Execute;
Close;
CommandText:='';
CommandText:='select * from [Nation]order by ID';
Open;
DBGrid2.Columns[0].Title.caption:='自動(dòng)序號(hào)';
DBGrid2.Columns[1].Title.caption:='民族編號(hào)';
DBGrid2.Columns[2].Title.caption:='民族名稱';
application.MessageBox('刪除操作成功',pchar(application.Title),mb_iconwarning);
except
application.MessageBox('刪除操作失敗，請(qǐng)檢查連接網(wǎng)絡(luò)是否正常，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
end;
end;
end;
end;
procedure Tfrm_Parameter_Set.SpeedButton13Click(Sender: TObject);
begin
if Trim(LabeledEdit5.Text)='' then
begin
application.MessageBox('修改操作失敗,［民族編號(hào)］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit5.SetFocus;
Exit;
end;
if Trim(LabeledEdit6.Text)='' then
begin
application.MessageBox('修改操作失敗,［民族名稱］不能為空！，請(qǐng)確認(rèn)！',pchar(application.Title),mb_iconwarning);
LabeledEdit6.SetFocus;
Exit;
end;
if Application.MessageBox('確定需要修改光標(biāo)所在的行記錄嗎？請(qǐng)確認(rèn)！',pchar(application.Title),mb_okcancel)=idok then
begin
with frm_data.ClientDataSet_Add do
begin
try
Close;
CommandText:='';
CommandText:='update [Nation] set Nation_No='''+Trim(LabeledEdit5.Text)+''',Nation_Name='''+Trim(LabeledEdit6.Text)+''' where ID='''+Trim(LabeledEdit4.Text)+'''';
Execute;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -