?? parameter_set.pas

?? delphi的一個開發實例
?? PAS
?? 第 1 頁 / 共 5 頁
字號:
                Close;
                CommandText:='';
                CommandText:='select * from [Nation] order by ID';
                Open;
                DBGrid2.Columns[0].Title.caption:='自動序號';
                DBGrid2.Columns[1].Title.caption:='民族編號';
                DBGrid2.Columns[2].Title.caption:='民族名稱';
                application.MessageBox('修改操作成功',pchar(application.Title),mb_iconwarning);
            except
                application.MessageBox('修改操作失敗，請檢查連接網絡是否正常，請確認！',pchar(application.Title),mb_iconwarning);
            end;
        end;
    end;
end;

procedure Tfrm_Parameter_Set.DBGrid2CellClick(Column: TColumn);
begin
    LabeledEdit4.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
    LabeledEdit5.Text:=frm_data.ClientDataSet_Add.FieldValues['Nation_NO'];
    LabeledEdit6.Text:=frm_data.ClientDataSet_Add.FieldValues['Nation_Name'];
end;

procedure Tfrm_Parameter_Set.Cmd_X_SaveClick(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;
    with frm_data.ClientDataSet_Add do
    begin
        try
            Close;
            CommandText:='';
            CommandText:='select * from [Eduction_Set] where Eduction_No='''+Trim(Edit8.Text)+''' and Eduction_Name='''+Trim(Edit9.Text)+'''';
            open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                application.MessageBox('添加操作失敗,該記錄已經存在，請確認！',pchar(application.Title),mb_iconwarning);
                Cmd_X_add.Enabled:=True;
                Cmd_X_Delete.Enabled:=True;
                Cmd_X_edit.Enabled:=True;
                Cmd_X_Save.Enabled:=False;
                Exit;
            end
            else
            try
                begin
                    Close;
                    CommandText:='';
                    CommandText:='insert into [Eduction_Set](Eduction_No,Eduction_Name)values('''+Trim(Edit8.Text)+''','''+Trim(Edit9.Text)+''')';
                    Execute;

                    Close;
                    CommandText:='';
                    CommandText:='select * from [Eduction_Set]order by ID';
                    Open;
                    frm_data.DataSource1.Enabled:=False;
                    frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                    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.Columns[1].Width:=130;
                    application.MessageBox('添加操作成功',pchar(application.Title),mb_iconwarning);
                    Cmd_X_add.Enabled:=True;
                    Cmd_X_Delete.Enabled:=True;
                    Cmd_X_edit.Enabled:=True;
                    Cmd_X_Save.Enabled:=False;
                end;
            except
                application.MessageBox('添加操作失敗，請檢查連接網絡是否正常或數據格式是否正確，請確認！',pchar(application.Title),mb_iconwarning);
            end;
        except
            application.MessageBox('添加操作失敗請檢查連接網絡是否正常，請確認！',pchar(application.Title),mb_iconwarning);
        end;
    end;
end;

procedure Tfrm_Parameter_Set.DBGrid1EditButtonClick(Sender: TObject);
begin
    begin
        Application.MessageBox('good','',mb_ok);
    end;
end;

procedure Tfrm_Parameter_Set.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_Control then Key:= 0;
end;

procedure Tfrm_Parameter_Set.Cmd_G_AddClick(Sender: TObject);
begin
    Cmd_G_Save.Enabled:=True;
    Cmd_G_Add.Enabled:=False;
    Cmd_G_Delete.Enabled:=False;
    Cmd_G_Edit.Enabled:=False;
    Edit25.Text:='';Edit26.Text:='';Edit27.Text:='';
    Edit26.SetFocus;
end;

procedure Tfrm_Parameter_Set.Cmd_G_ExitClick(Sender: TObject);
begin
    Cmd_G_Save.Enabled:=False;
    Cmd_G_Add.Enabled:=True;
    Cmd_G_Delete.Enabled:=True;
    Cmd_G_Edit.Enabled:=True;
    with frm_data.ClientDataSet_Add do
    begin
        try
            Close;
            CommandText:='';
            CommandText:='select ID,Goods_Modal_NO,Goods_Modal from [Goods_Modal]order by ID';
            open;
            frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
            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;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                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
                Edit25.Text:='';Edit26.Text:='';Edit27.Text:='';
            end;
        except
            application.MessageBox('操作失敗請檢查連接網絡是否正常，請確認！',pchar(application.Title),mb_iconwarning);
        end;
    end;
end;

procedure Tfrm_Parameter_Set.Cmd_G_SaveClick(Sender: TObject);
begin
    if Trim(Edit26.Text)='' then      
    begin                                
        application.MessageBox('添加失敗,【類別編號】不能為空！，請確認！',pchar(application.Title),mb_iconwarning);
        Edit26.SetFocus;
        Exit;
    end;
    if Trim(Edit27.Text)='' then
    begin
        application.MessageBox('添加失敗,【類別名稱】不能為空！，請確認！',pchar(application.Title),mb_iconwarning);
        Edit27.SetFocus;
        Exit;
    end;
    with frm_data.ClientDataSet_Add do
    begin
        try
            Close;
            CommandText:='';
            CommandText:='select * from [Goods_Modal] where Goods_Modal_No='''+Trim(Edit26.Text)+''' and Goods_Modal='''+Trim(Edit27.Text)+'''';
            open;

            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                application.MessageBox('添加操作失敗,該記錄已經存在，請確認！',pchar(application.Title),mb_iconwarning);
                Exit;
            end
            else
            try
                begin
                    Close;
                    CommandText:='';
                    CommandText:='insert into [Goods_Modal](Goods_Modal_No,Goods_Modal)values('''+Trim(Edit26.Text)+''','''+Trim(Edit27.Text)+''')';
                    Execute;

                    Close;
                    CommandText:='';
                    CommandText:='select * from [Goods_Modal]order by ID';
                    Open;

                    ComboBox1.Clear;
                    while (not frm_data.ClientDataSet_Add.Eof ) do
                    begin
                        ComboBox1.Items.Add(frm_data.ClientDataSet_Add.FieldValues['Goods_Modal']);
                        Next;
                    end;
                    frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                    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;
                    Last;
                    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'];
                    application.MessageBox('添加操作成功！請確認！',pchar(application.Title),mb_iconwarning);
                    Cmd_G_Save.Enabled:=False;
                    Cmd_G_Add.Enabled:=True;
                    Cmd_G_Delete.Enabled:=True;
                    Cmd_G_Edit.Enabled:=True;
                end;
            except
                application.MessageBox('添加失敗，請檢查連接網絡是否正常或數據格式是否正確，請確認！',pchar(application.Title),mb_iconwarning);
            end;
        except
            application.MessageBox('添加失敗請檢查連接網絡是否正常，請確認！',pchar(application.Title),mb_iconwarning);
        end;
    end;
end;

procedure Tfrm_Parameter_Set.FormShow(Sender: TObject);
begin
    self.PageControl1.Visible:=False;
end;

procedure Tfrm_Parameter_Set.ListView1Click(Sender: TObject);
begin
    if listview1.Selected <> nil then
    begin
        case listview1.ItemIndex of
        0:
        begin
            PageControl1.Visible:=True;
            TabSheet1.TabVisible:=True;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:=False;
            frm_data.DataSource1.Enabled:=False;
            frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
            DBGrid1.DataSource:=frm_data.DataSource1;
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                CommandText:='';
                CommandText:='select * from [staff_Type]order by ID';
                Open;
                if frm_data.ClientDataSet_Add.RecordCount>0 then
                begin
                    frm_data.DataSource1.Enabled:=true;
                    DBGrid1.Columns[0].Title.caption:='自動序號';
                    DBGrid1.Columns[1].Title.caption:='人員類型編號';
                    DBGrid1.Columns[2].Title.caption:='人員類型名稱';
                    DBGrid1.Columns[0].Width:=60;
                    DBGrid1.Columns[1].Width:=100;
                    DBGrid1.Columns[2].Width:=130;
                    DBGrid1.Columns[1].ButtonStyle:=TColumnButtonStyle;
                    DBGrid1.Columns[2].ButtonStyle:=TColumnButtonStyle;
                    first;
                    LabeledEdit1.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                    LabeledEdit2.Text:=frm_data.ClientDataSet_Add.FieldValues['staff_NO'];
                    LabeledEdit3.Text:=frm_data.ClientDataSet_Add.FieldValues['staff_Name'];
                end;
            end;
        end;
        1:
        begin
            PageControl1.Visible:=True;
            TabSheet1.TabVisible:=False;TabSheet2.TabVisible:=True;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:=False;
            with frm_data.ClientDataSet_Add do
            begin
                Close;
                CommandText:='';
                CommandText:='select * from [Nation]order by ID';
                Open;
                frm_data.DataSource1.Enabled:=False;
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                DBGrid2.DataSource:=frm_data.DataSource1;
                if RecordCount>0 then
                begin
                    frm_data.DataSource1.Enabled:=true;
                    DBGrid2.Columns[0].Title.caption:='自動序號';
                    DBGrid2.Columns[1].Title.caption:='類型編號';
                    DBGrid2.Columns[2].Title.caption:='類型名稱';
                    DBGrid2.Columns[0].Width:=60;
                    DBGrid2.Columns[1].Width:=100;
                    DBGrid2.Columns[2].Width:=130;
                    First;
                    LabeledEdit4.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                    LabeledEdit5.Text:=frm_data.ClientDataSet_Add.FieldValues['Nation_NO'];
                    LabeledEdit6.Text:=frm_data.ClientDataSet_Add.FieldValues['Nation_Name'];
                end
                else
?? 文件大小 3398 K
?? 上傳用戶 wanjunsheng
?? 所屬分類 Delphi控件源碼
??? 相關標簽

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

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

?? parameter_set.pas

?? 快捷鍵說明
