?? unit1.pas
字號:
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
qryCommon.Open;
if qryCommon.IsEmpty then
begin
s :='insert ENT_ATTACHMENT Values('''+trim(edtInput.Text)+''','''','''')';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('保存直管屬性時出錯!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
OptionModified :=False;
end
else
begin
Application.MessageBox('該直管屬性已經存在!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
end
else
begin // 修改記錄
s :='update ENT_ATTACHMENT set ATTACHMENT='''+trim(edtInput.Text)+''' where ATTACHMENT='''+table5.FieldByName('ATTACHMENT').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('修改直管屬性時出錯!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
OptionModified := False;
end;
table5.close;
table5.Open;
end;
4: begin // 倉庫類型
if editMode = editINSERT then
begin // 新建記錄
s := 'select * from ENT_DEPOTTYPE where DEPOT_TYPE='''+trim(edtInput.Text)+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
qryCommon.Open;
if qryCommon.IsEmpty then
begin
s :='insert ENT_DEPOTTYPE Values('''+trim(edtInput.Text)+''','''','''')';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('保存倉庫類型時出錯!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
OptionModified :=False;
end
else
begin
Application.MessageBox('該倉庫類型已經存在!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
end
else
begin // 修改記錄
s :='update ENT_DEPOTTYPE set DEPOT_TYPE='''+trim(edtInput.Text)+''' where DEPOT_TYPE='''+table6.FieldByName('DEPOT_TYPE').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('修改倉庫類型時出錯!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
OptionModified := False;
end;
table6.Close;
table6.Open;
end;
end;
end;
end;
procedure Tfrmsetup.btnnewClick(Sender: TObject);
begin
OptionModified :=False;
edtInput.Color := clWindow;
edtInput.Enabled :=True;
btnModify.Enabled :=False;
btnDelete.Enabled :=False;
PageControl1.Enabled :=False;
editMode := editINSERT;
edtInput.SetFocus;
end;
procedure Tfrmsetup.btndeleteClick(Sender: TObject);
var s:string;
begin
case PageControl1.ActivePageIndex of
0: begin
if table1.IsEmpty then
Exit;
if MessageDlg('確實要刪除嗎?',mtInformation,[mbYes,mbNo],0)=mrNo then
exit
else
begin
s :='delete from ENT_SETTLEMENT where SETTLEMENT='''+table1.FieldByName('SETTLEMENT').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('不能刪除該結算方式!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
table1.close;
table1.Open;
end;
end;
1: begin
if table2.IsEmpty then
Exit;
if MessageDlg('確實要刪除嗎?',mtInformation,[mbYes,mbNo],0)=mrNo then
exit
else
begin
s :='delete from ENT_BUSINESS_TYPE where busines_stype='''+table2.FieldByName('busines_stype').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('不能刪除該業務性質!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
table2.close;
table2.Open;
end;
end;
{ 2: begin
if table3.IsEmpty then
Exit;
if MessageDlg('確實要刪除嗎?',mtInformation,[mbYes,mbNo],0)=mrNo then
exit
else
begin
s :='delete from ENT_FOOD_TYPE where FOOD_TYPE='''+table3.FieldByName('FOOD_type').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('不能刪除該糧油品種!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
table3.Close;
table3.Open;
end;
end; }
2: begin
if table4.IsEmpty then
Exit;
if MessageDlg('確實要刪除嗎?',mtInformation,[mbYes,mbNo],0)=mrNo then
exit
else
begin
s :='delete from ENT_ATTRIBUTE where ATTRIBUTE='''+table4.FieldByName('ATTRIBUTE').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('不能刪除該庫存性質!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
table4.Close;
table4.Open;
end;
end;
3: begin
if table5.IsEmpty then
Exit;
if MessageDlg('確實要刪除嗎?',mtInformation,[mbYes,mbNo],0)=mrNo then
exit
else
begin
s :='delete from ENT_ATTACHMENT where ATTACHMENT='''+table5.FieldByName('ATTACHMENT').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('不能刪除該直管屬性!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
table5.Close;
table5.Open;
end;
end;
4: begin
if table6.IsEmpty then
Exit;
if MessageDlg('確實要刪除嗎?',mtInformation,[mbYes,mbNo],0)=mrNo then
exit
else
begin
s :='delete from ENT_DEPOTTYPE where DEPOT_TYPE='''+table6.FieldByName('DEPOT_TYPE').AsString+'''';
qryCommon.SQL.Clear;
qryCommon.SQL.Add(s);
try
qryCommon.ExecSQL;
except
Application.MessageBox('不能刪除該倉庫類型!','系統錯誤',MB_OK+MB_ICONERROR);
Exit;
end;
table6.Close;
table6.Open;
end;
end;
end;
end;
{procedure Tfrmsetup.btnokClick(Sender: TObject);
begin
if OptionModified then
begin
DealApply;
if OptionModified then
begin
edtInput.SelectAll;
edtInput.SetFocus;
end
else
Close;
end
else
Close;
end;
}
procedure Tfrmsetup.btnabandonClick(Sender: TObject);
begin
edtInput.Text :='';
edtInput.Enabled :=False;
edtInput.Color :=clBtnFace;
OptionModified := False;
btnNew.Enabled :=True;
btnDelete.Enabled :=True;
btnModify.Enabled :=True;
pageControl1.Enabled :=True;
end;
procedure Tfrmsetup.PageControl1Change(Sender: TObject);
var sPrompt : string;
begin
case PageControl1.ActivePageIndex of
0: sPrompt:='輸入付款方式:';
1: sPrompt:='輸入業務性質：';
// 2: sPrompt:='輸入貨物種類：';
2: sPrompt:='輸入庫存性質：';
3: sPrompt:='輸入直管屬性：';
4: sPrompt:='輸入倉庫類型：';
end;
label1.Caption := sPrompt;
end;
procedure Tfrmsetup.btnexitClick(Sender: TObject);
begin
close;
end;
procedure Tfrmsetup.btnmodifyClick(Sender: TObject);
begin
case PageControl1.ActivePageIndex of
0: begin
if table1.IsEmpty then Exit;
edtInput.Text := table1.FieldByName('SETTLEMENT').AsString;
end;
1: begin
if table2.IsEmpty then Exit;
edtInput.Text := table2.FieldByName('BUSINES_STYPE').AsString;
end;
{ 2: begin
if table3.IsEmpty then Exit;
edtInput.Text := table3.FieldByName('FOOD_type').AsString;
end; }
2: begin
if table4.IsEmpty then Exit;
edtInput.Text := table4.FieldByName('ATTRIBUTE').AsString;
end;
3: begin
if table5.IsEmpty then Exit;
edtInput.Text := table5.FieldByName('ATTACHMENT').AsString;
end;
4: begin
if table6.IsEmpty then Exit;
edtInput.Text := table6.FieldByName('DEPOT_TYPE').AsString;
end;
end;
OptionModified :=True;
edtInput.Color := clWindow;
edtInput.Enabled :=True;
btnNew.Enabled :=False;
btnDelete.Enabled :=False;
PageControl1.Enabled :=False;
editMode := editUPDATE;
edtInput.SetFocus;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -