parameter_set.pas

delphi的一个开发实例

                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