parameter_set.pas

delphi的一个开发实例

                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;