?? 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
?? 文件大小 3398 K
?? 上傳用戶 wanjunsheng
?? 所屬分類 Delphi控件源碼
??? 相關標簽

#delphi #開發實例
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? parameter_set.pas

?? 快捷鍵說明
