?? parameter_set.pas
字號:
begin
frm_data.DataSource1.Enabled:=False;
DBGrid2.Enabled:=False;
end;
end;
end;
2:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False;TabSheet2.TabVisible:=False;TabSheet3.TabVisible:=True;
TabSheet4.TabVisible:=False;TabSheet5.TabVisible:=False;TabSheet6.TabVisible:=False;
TabSheet7.TabVisible:=False;TabSheet8.TabVisible:=False;TabSheet9.TabVisible:=False;
TabSheet10.TabVisible:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
frm_data.DataSource1.Enabled:=False;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select * from [Eduction_Set]';
Open;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
if RecordCount>0 then
begin
frm_data.DataSource1.Enabled:=true;
DBGrid3.Enabled:=True;
DBGrid3.DataSource:=frm_data.DataSource1;
DBGrid3.Columns[0].Title.caption:='自動序號';
DBGrid3.Columns[1].Title.caption:='學歷編號';
DBGrid3.Columns[2].Title.caption:='學歷名稱';
DBGrid3.Columns[0].Width:=60;
DBGrid3.Columns[1].Width:=100;
DBGrid3.Columns[1].Width:=130;
end
else
begin
frm_data.DataSource1.Enabled:=False;
DBGrid3.Enabled:=False;
end;
end;
end;
3:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False;TabSheet2.TabVisible:=False;TabSheet3.TabVisible:=False;
TabSheet4.TabVisible:=True;TabSheet5.TabVisible:=False;TabSheet6.TabVisible:=False;
TabSheet7.TabVisible:=False;TabSheet8.TabVisible:=False;TabSheet9.TabVisible:=False;
TabSheet10.TabVisible:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
frm_data.DataSource1.Enabled:=False;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select * from [Cancel_Because_Set]';
Open;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
if RecordCount>0 then
begin
frm_data.DataSource1.Enabled:=true;
DBGrid4.Enabled:=True;
DBGrid4.DataSource:=frm_data.DataSource1;
DBGrid4.Columns[0].Title.caption:='自動序號';
DBGrid4.Columns[1].Title.caption:='原因編號';
DBGrid4.Columns[2].Title.caption:='原因名稱';
DBGrid4.Columns[0].Width:=60;
DBGrid4.Columns[1].Width:=100;
DBGrid4.Columns[1].Width:=130;
end
else
begin
frm_data.DataSource1.Enabled:=False;
DBGrid4.Enabled:=False;
end;
end;
end;
4:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False;TabSheet2.TabVisible:=False;TabSheet3.TabVisible:=False;
TabSheet4.TabVisible:=False;TabSheet5.TabVisible:=True;TabSheet6.TabVisible:=False;
TabSheet7.TabVisible:=False;TabSheet8.TabVisible:=False;TabSheet9.TabVisible:=False;
TabSheet10.TabVisible:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
frm_data.DataSource1.Enabled:=False;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='Select * from [Pay_Type]';
Open;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
frm_data.DataSource1.Enabled:=True;
DBGrid5.DataSource:=frm_data.DataSource1;
DBGrid5.Columns[0].Title.caption:='自動序號';
DBGrid5.Columns[1].Title.caption:='方式編號';
DBGrid5.Columns[2].Title.caption:='方式名稱';
DBGrid5.Columns[0].Width:=60;
DBGrid5.Columns[1].Width:=100;
DBGrid5.Columns[2].Width:=130;
if frm_data.ClientDataSet_Add.RecordCount>0 then
begin
frm_data.ClientDataSet_Add.First;
Edit13.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
Edit14.Text:=frm_data.ClientDataSet_Add.FieldValues['Pay_NO'];
Edit15.Text:=frm_data.ClientDataSet_Add.FieldValues['Pay_name'];
end;
end;
end;
5:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False;TabSheet2.TabVisible:=False;TabSheet3.TabVisible:=False;
TabSheet4.TabVisible:=False;TabSheet5.TabVisible:=False;TabSheet6.TabVisible:=True;
TabSheet7.TabVisible:=False;TabSheet8.TabVisible:=False;TabSheet9.TabVisible:=False;
TabSheet10.TabVisible:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
try
f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\Base_Set.ini');
E1.Text:=f.ReadString('CompanyInformation','Company_Code','');
E2.Text:=f.ReadString('CompanyInformation','Company_Name','');
E3.Text:=f.ReadString('CompanyInformation','Company_JC','');
E4.Text:=f.ReadString('CompanyInformation','Company_Man','');
E5.Text:=f.ReadString('CompanyInformation','Company_WWW','');
E6.Text:=f.ReadString('CompanyInformation','Company_Mail','');
E7.Text:=f.ReadString('CompanyInformation','Company_Address','');
f.Free;
except
application.MessageBox('操作失敗請檢查連接網絡是否正常，請確認！',pchar(application.Title),mb_iconwarning);
f.Free;
end;
end;
6:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False;TabSheet2.TabVisible:=False;TabSheet3.TabVisible:=False;
TabSheet4.TabVisible:=False;TabSheet5.TabVisible:=False;TabSheet6.TabVisible:=False;
TabSheet7.TabVisible:=True;TabSheet8.TabVisible:=False;TabSheet9.TabVisible:=False;
TabSheet10.TabVisible:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select * from [Client_Type]order by ID';
Open;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
frm_data.DataSource1.Enabled:=False;
if RecordCount>0 then
begin
frm_data.DataSource1.Enabled:=true;
DBGrid7.DataSource:=frm_data.DataSource1;
DBGrid7.Columns[0].Title.caption:='自動序號';
DBGrid7.Columns[1].Title.caption:='類別編號';
DBGrid7.Columns[2].Title.caption:='類別名稱';
DBGrid7.Columns[0].Width:=60;
DBGrid7.Columns[1].Width:=100;
DBGrid7.Columns[2].Width:=130;
First;
Edit19.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
Edit20.Text:=frm_data.ClientDataSet_Add.FieldValues['Client_No'];
Edit21.Text:=frm_data.ClientDataSet_Add.FieldValues['Client_name'];
end
else
begin
frm_data.DataSource1.Enabled:=False;
end;
end;
end;
7:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False;TabSheet2.TabVisible:=False;TabSheet3.TabVisible:=False;
TabSheet4.TabVisible:=False;TabSheet5.TabVisible:=False;TabSheet6.TabVisible:=False;
TabSheet7.TabVisible:=False;TabSheet8.TabVisible:=True;TabSheet9.TabVisible:=False;
TabSheet10.TabVisible:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select * from [area_Set]order by ID';
Open;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
frm_data.DataSource1.Enabled:=False;
if RecordCount>0 then
begin
frm_data.DataSource1.Enabled:=true;
DBGrid8.DataSource:=frm_data.DataSource1;
DBGrid8.Columns[0].Title.caption:='自動序號';
DBGrid8.Columns[1].Title.caption:='電話區號';
DBGrid8.Columns[2].Title.caption:='地區編號';
DBGrid8.Columns[3].Title.caption:='地區名稱';
DBGrid8.Columns[0].Width:=60;
DBGrid8.Columns[1].Width:=60;
DBGrid8.Columns[2].Width:=80;
DBGrid8.Columns[3].Width:=110;
First;
Edit22.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
LabeledEdit7.Text:=frm_data.ClientDataSet_Add.FieldValues['Area_ID'];
Edit23.Text:=frm_data.ClientDataSet_Add.FieldValues['area_NO'];
Edit24.Text:=frm_data.ClientDataSet_Add.FieldValues['area_name'];
end
else
begin
frm_data.DataSource1.Enabled:=False;
end;
end;
end;
8:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False; TabSheet2.TabVisible:=False; TabSheet3.TabVisible:=False;
TabSheet4.TabVisible:=False; TabSheet5.TabVisible:=False;TabSheet6.TabVisible:=False;
TabSheet7.TabVisible:=False; TabSheet8.TabVisible:=False; TabSheet9.TabVisible:=True;
TabSheet10.TabVisible:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select * from [Goods_Modal]order by ID';
Open;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
frm_data.DataSource1.Enabled:=False;
if RecordCount>0 then
begin
frm_data.DataSource1.Enabled:=true;
DBGrid9.DataSource:=frm_data.DataSource1;
DBGrid9.Columns[0].Title.caption:='自動序號';
DBGrid9.Columns[1].Title.caption:='類型編號';
DBGrid9.Columns[2].Title.caption:='類型名稱';
DBGrid9.Columns[0].Width:=60;
DBGrid9.Columns[1].Width:=100;
DBGrid9.Columns[2].Width:=130;
First;
Edit25.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
Edit26.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal_No'];
Edit27.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal'];
end
else
begin
frm_data.DataSource1.Enabled:=False;
end;
end;
end;
9:
begin
PageControl1.Visible:=True;
TabSheet1.TabVisible:=False; TabSheet2.TabVisible:=False; TabSheet3.TabVisible:=False;
TabSheet4.TabVisible:=False; TabSheet5.TabVisible:=False; TabSheet6.TabVisible:=False;
TabSheet7.TabVisible:=False; TabSheet8.TabVisible:=False; TabSheet9.TabVisible:=False;
TabSheet10.TabVisible:=True; TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
TabSheet13.TabVisible:=False;
ComboBox1.Clear;
with frm_data.ClientDataSet2 do
begin
Close;
CommandText:='';
CommandText:='select Distinct Goods_Modal from [Goods_Modal]';
Open;
while (not frm_data.ClientDataSet2.Eof ) do
begin
ComboBox1.Items.Add(frm_data.ClientDataSet2.FieldValues['Goods_Modal']);
Next;
end;
end;
with frm_data.ClientDataSet_Add do
begin
Close;
CommandText:='';
CommandText:='select ID,Goods_Modal,Goods_Cards_NO,Goods_Cards,Factory from [Goods_Cards]order by ID';
Open;
frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
frm_data.DataSource1.Enabled:=False;
DBGrid6.DataSource:=frm_data.DataSource1;
if RecordCount>0 then
begin
frm_data.DataSource1.Enabled:=true;
DBGrid6.Columns[0].Title.caption:='自動序號';
DBGrid6.Columns[1].Title.caption:='商品類別';
DBGrid6.Columns[2].Title.caption:='品牌編號';
DBGrid6.Columns[3].Title.caption:='品牌名稱';
DBGrid6.Columns[4].Title.caption:='生產廠家';
DBGrid6.Columns[0].Width:=60;
DBGrid6.Columns[1].Width:=100;
DBGrid6.Columns[2].Width:=100;
DBGrid6.Columns[3].Width:=130;
DBGrid6.Columns[4].Width:=130;
First;
LabeledEdit8.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
ComboBox1.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal'];
LabeledEdit9.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Cards_No'];
LabeledEdit10.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Cards'];
LabeledEdit17.Text:=frm_data.ClientDataSet_Add.FieldValues['Factory'];
end
else
begin
frm_data.DataSource1.Enabled:=False;
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -