📄 parameter_set.pas

📁 delphi的一个开发实例
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
            end;
        end;
        10:
        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:=False;TabSheet11.TabVisible:=True;TabSheet12.TabVisible:=False;
            TabSheet13.TabVisible:=False;
            ComboBox2.Clear;ComboBox3.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
                    ComboBox2.Items.Add(frm_data.ClientDataSet2.FieldValues['Goods_Modal']);
                    Next;
                end;
            end;
            with frm_data.ClientDataSet2 do
            begin
                Close;
                CommandText:='';
                CommandText:='Select distinct Goods_Cards from [Goods_Cards]';
                Open;
                while (not frm_data.ClientDataSet2.Eof) do
                begin
                    ComboBox3.Items.Add(frm_data.ClientDataSet2.FieldValues['Goods_Cards']);
                    Next;
                end;
            end;
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                CommandText:='';
                CommandText:='select ID, Goods_Modal,Goods_Cards,Goods_brand_NO,Goods_brand from [Goods_Brand]order by ID';
                Open;
                frm_data.DataSource1.Enabled:=False;
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                frm_data.DataSource1.Enabled:=true;
                DBGrid10.DataSource:=frm_data.DataSource1;
                DBGrid10.Columns[0].Title.caption:='自动序号';
                DBGrid10.Columns[1].Title.caption:='商品类别';
                DBGrid10.Columns[2].Title.caption:='商品品牌';
                DBGrid10.Columns[3].Title.caption:='品种编号';
                DBGrid10.Columns[4].Title.caption:='品种名称';
                DBGrid10.Columns[0].Width:=60;
                DBGrid10.Columns[1].Width:=100;
                DBGrid10.Columns[2].Width:=130;
                DBGrid10.Columns[3].Width:=60;
                DBGrid10.Columns[4].Width:=100;
                if RecordCount>0 then
                begin
                    First;
                    LabeledEdit11.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                    ComboBox2.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Modal'];
                    ComboBox3.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Cards'];
                    LabeledEdit12.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Brand_No'];
                    LabeledEdit13.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Brand'];
                end
                else
                begin
                    frm_data.DataSource1.Enabled:=False;
                    LabeledEdit11.Text:='';LabeledEdit12.Text:='';LabeledEdit13.Text:='';
                    ComboBox2.Text:='';ComboBox3.Text:='';
                end;
            end;
        end;
        11:
        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:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=True;
            TabSheet13.TabVisible:=False;
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                CommandText:='';
                CommandText:='select * from [Goods_Monad]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;
                    DBGrid11.DataSource:=frm_data.DataSource1;
                    DBGrid11.Columns[0].Title.caption:='自动序号';
                    DBGrid11.Columns[1].Title.caption:='单位编号';
                    DBGrid11.Columns[2].Title.caption:='单位名称';
                    DBGrid11.Columns[0].Width:=60;
                    DBGrid11.Columns[1].Width:=100;
                    DBGrid11.Columns[2].Width:=130;
                    First;
                    LabeledEdit14.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                    LabeledEdit15.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Monad_No'];
                    LabeledEdit16.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Monad'];
                end
                else
                begin
                    frm_data.DataSource1.Enabled:=False;
                end;
            end;
        end;
        12:
        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:=False;TabSheet11.TabVisible:=False;TabSheet12.TabVisible:=False;
            TabSheet13.TabVisible:=True;
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                CommandText:='';
                CommandText:='select * from [Goods_Color]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;
                    DBGrid12.DataSource:=frm_data.DataSource1;
                    DBGrid12.Columns[0].Title.caption:='自动序号';
                    DBGrid12.Columns[1].Title.caption:='颜色编号';
                    DBGrid12.Columns[2].Title.caption:='颜色名称';
                    DBGrid12.Columns[0].Width:=60;
                    DBGrid12.Columns[1].Width:=100;
                    DBGrid12.Columns[2].Width:=130;
                    First;
                    LabeledEdit18.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                    LabeledEdit19.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Color_No'];
                    LabeledEdit20.Text:=frm_data.ClientDataSet_Add.FieldValues['Goods_Color'];
                end
                else
                begin
                    frm_data.DataSource1.Enabled:=False;
                end;
            end;
        end;
    end;

    end;
end;

procedure Tfrm_Parameter_Set.SpeedButton5Click(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.SpeedButton15Click(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.Cmd_X_ExitClick(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.Cmd_T_ExitClick(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.SpeedButton25Click(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.SpeedButton30Click(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.Cmd_C_ExitClick(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.Cmd_A_ExitClick(Sender: TObject);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    Close;
end;

procedure Tfrm_Parameter_Set.Cmd_X_AddClick(Sender: TObject);
begin
    Cmd_X_add.Enabled:=False;
    Cmd_X_Delete.Enabled:=False;
    Cmd_X_edit.Enabled:=False;
    Cmd_X_Save.Enabled:=True;
end;

procedure Tfrm_Parameter_Set.Cmd_X_EditClick(Sender: TObject);
begin
    if Trim(Edit8.Text)='' then
    begin
        application.MessageBox('修改操作失败,［学历编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit8.SetFocus;
        Exit;
    end;
    if Trim(Edit9.Text)='' then
    begin
        application.MessageBox('修改操作失败,［学历名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit9.SetFocus;
        Exit;
    end;
    if Application.MessageBox('确定需要修改光标所在的行记录吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                CommandText:='';
                CommandText:='update [Eduction_Set] set Eduction_No='''+Trim(Edit8.Text)+''',Eduction_Name='''+Trim(Edit9.Text)+''' where ID='''+Trim(Edit7.Text)+'''';
                Execute;

                Close;
                CommandText:='';
                CommandText:='select * from [Eduction_Set] order by ID';
                Open;
                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;
                application.MessageBox('修改操作成功',pchar(application.Title),mb_iconwarning);
            except
                application.MessageBox('修改操作失败，请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
            end;
        end;
    end;
end;

procedure Tfrm_Parameter_Set.DBGrid3CellClick(Column: TColumn);
begin
    Edit7.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
    Edit8.Text:=frm_data.ClientDataSet_Add.FieldValues['Eduction_NO'];
    Edit9.Text:=frm_data.ClientDataSet_Add.FieldValues['Eduction_Name'];
end;

procedure Tfrm_Parameter_Set.Cmd_X_DeleteClick(Sender: TObject);
begin
    if Trim(Edit8.Text)='' then
    begin
        application.MessageBox('删除操作失败,［民族编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit8.SetFocus;
        Exit;
    end;
    if Trim(Edit9.Text)='' then
    begin
        application.MessageBox('删除操作失败,［民族名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Edit9.SetFocus;
        Exit;
    end;
    if Application.MessageBox('确定需要删除光标所在的行记录吗？请确认！',pchar(application.Title),mb_okcancel)=idok then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            try
                Close;
                CommandText:='';
                CommandText:='delete [Eduction_Set] where ID='''+Trim(Edit7.Text)+'''';
                Execute;

                Close;
                CommandText:='';
                CommandText:='select * from [Eduction_Set]order by ID';
                Open;
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                frm_Data.DataSource1.Enabled:=False;
                frm_data.DataSource1.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.C
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -