parameter_set.pas

delphi的一个开发实例

procedure Tfrm_Parameter_Set.SpeedButton1Click(Sender: TObject);
begin
    LabeledEdit3.SetFocus;
    with frm_data.ClientDataSet_Add do
    begin
        Close;
        CommandText:='';
        CommandText:='select * from [staff_Type] order by ID';
        try
            open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                DBGrid1.DataSource:=frm_data.DataSource1;
                DBGrid1.Columns[0].Title.caption:='自动序号';
                DBGrid1.Columns[1].Title.caption:='类型编号';
                DBGrid1.Columns[2].Title.caption:='类型名称';
            end;
        except
            application.MessageBox('连接【远程服务器】出错！'+#13#10+'请检查连接网络是否正常。请确认！',pchar(application.Title),mb_iconwarning);
        end;
    end;
end;

procedure Tfrm_Parameter_Set.SpeedButton4Click(Sender: TObject);
begin
    if Trim(LabeledEdit2.Text)='' then
    begin
        application.MessageBox('添加失败,［人员类型编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit2.SetFocus;
        Exit;
    end;
    if Trim(LabeledEdit3.Text)='' then
    begin
        application.MessageBox('添加失败,［人员类型名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit3.SetFocus;
        Exit;
    end;
    with frm_data.ClientDataSet_Add do
    begin
        try
            Close;
            CommandText:='';
            CommandText:='select * from [staff_Type] where staff_No='''+Trim(LabeledEdit2.Text)+''' and staff_Name='''+Trim(LabeledEdit3.Text)+'''';
            open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                application.MessageBox('添加失败,该记录已经存在，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end
            else
            try
                begin
                    //Close;
                    frm_data.ClientDataSet_Add.Insert;
                    frm_data.ClientDataSet_Add.FieldByName('staff_No').AsString:=Trim(LabeledEdit2.Text);
                    frm_data.ClientDataSet_Add.FieldByName('staff_Name').AsString:=Trim(LabeledEdit3.Text);
                    frm_data.ClientDataSet_Add.Post;
                    //CommandText:='';
                    //CommandText:='insert into [staff_Type](staff_No,staff_Name)values('''+Trim(LabeledEdit2.Text)+''','''+Trim(LabeledEdit3.Text)+''')';
                    //Execute;
                    //post;

                    //Close;
                    //CommandText:='';
                    //CommandText:='select * from [staff_Type]order by ID';
                    //Open;
                    frm_data.ClientDataSet_Add.SaveToFile('clientdataback.cds');//保存本地数据（公文包）格式是Cds的
                    frm_data.DataSource1.Enabled:=False;
                    frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                    frm_data.DataSource1.Enabled:=True;
                    Dbgrid1.DataSource:=frm_data.DataSource1;
                    DBGrid1.Columns[0].Title.caption:='自动序号';
                    DBGrid1.Columns[1].Title.caption:='类型编号';
                    DBGrid1.Columns[2].Title.caption:='类型名称';
                    application.MessageBox('添加成功',pchar(application.Title),mb_iconwarning);
                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.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    frm_data.ClientDataSet_Add.Active:=False;
    frm_data.ClientDataSet_Add.Close;
    frm_data.ClientDataSet2.Active:=False;
    frm_data.ClientDataSet2.Close;
    Action:=cafree;
end;

procedure Tfrm_Parameter_Set.SpeedButton2Click(Sender: TObject);
begin
    if Trim(LabeledEdit2.Text)='' then
    begin
        application.MessageBox('删除操作失败,［人员类型编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit2.SetFocus;
        Exit;
    end;
    if Trim(LabeledEdit3.Text)='' then
    begin
        application.MessageBox('删除操作失败,［人员类型名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit3.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 [staff_Type] where ID='''+Trim(LabeledEdit1.Text)+'''';
                Execute;
                Close;
                CommandText:='';
                CommandText:='select * from [staff_Type]order by ID';
                Open;
                DBGrid1.Columns[0].Title.caption:='自动序号';
                DBGrid1.Columns[1].Title.caption:='类型编号';
                DBGrid1.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.DBGrid1CellClick(Column: TColumn);
begin
    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'];

    showmessage(column.Field.AsString);
    //showmessage(dbgrid1.Columns.Items[0].Field.asstring);//items[0]顯示的是第一列,修改items里參數,可達到你要顯示的列.
end;

procedure Tfrm_Parameter_Set.SpeedButton3Click(Sender: TObject);
begin
    if Trim(LabeledEdit2.Text)='' then
    begin
        application.MessageBox('修改操作失败,［人员类型编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit2.SetFocus;
        Exit;
    end;
    if Trim(LabeledEdit3.Text)='' then
    begin
        application.MessageBox('修改操作失败,［人员类型名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit3.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 [staff_Type] set staff_No='''+Trim(LabeledEdit2.Text)+''',staff_Name='''+Trim(LabeledEdit3.Text)+''' where ID='''+Trim(LabeledEdit1.Text)+'''';
                Execute;

                Close;
                CommandText:='';
                CommandText:='select * from [staff_Type] order by ID';
                Open;
                DBGrid1.Columns[0].Title.caption:='自动序号';
                DBGrid1.Columns[1].Title.caption:='类型编号';
                DBGrid1.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.SpeedButton14Click(Sender: TObject);
begin
    if Trim(LabeledEdit5.Text)='' then
    begin
        application.MessageBox('添加操作失败,［民族编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit5.SetFocus;
        Exit;
    end;
    if Trim(LabeledEdit6.Text)='' then
    begin
        application.MessageBox('添加操作失败,［民族名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit6.SetFocus;
        Exit;
    end;
    with frm_data.ClientDataSet_Add do
    begin
        try
            Close;
            CommandText:='';
            CommandText:='select * from [Nation] where Nation_No='''+Trim(LabeledEdit5.Text)+''' and Nation_Name='''+Trim(LabeledEdit6.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 [Nation](Nation_No,Nation_Name)values('''+Trim(LabeledEdit5.Text)+''','''+Trim(LabeledEdit6.Text)+''')';
                    Execute;

                    Close;
                    CommandText:='';
                    CommandText:='select * from [Nation]order by ID';
                    Open;
                    frm_data.DataSource1.Enabled:=False;
                    frm_data.DataSource1.DataSet:=frm_data.ClientDataSet_Add;
                    frm_data.DataSource1.Enabled:=True;
                    Dbgrid2.DataSource:=frm_data.DataSource1;
                    DBGrid2.Columns[0].Title.caption:='自动序号';
                    DBGrid2.Columns[1].Title.caption:='民族编号';
                    DBGrid2.Columns[2].Title.caption:='民族名称';
                    application.MessageBox('添加操作成功',pchar(application.Title),mb_iconwarning);
                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.SpeedButton12Click(Sender: TObject);
begin
    if Trim(LabeledEdit5.Text)='' then
    begin
        application.MessageBox('删除操作失败,［民族编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit5.SetFocus;
        Exit;
    end;
    if Trim(LabeledEdit6.Text)='' then
    begin
        application.MessageBox('删除操作失败,［民族名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit6.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 [Nation] where ID='''+Trim(LabeledEdit4.Text)+'''';
                Execute;

                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.SpeedButton13Click(Sender: TObject);
begin
    if Trim(LabeledEdit5.Text)='' then
    begin
        application.MessageBox('修改操作失败,［民族编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit5.SetFocus;
        Exit;
    end;
    if Trim(LabeledEdit6.Text)='' then
    begin
        application.MessageBox('修改操作失败,［民族名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        LabeledEdit6.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 [Nation] set Nation_No='''+Trim(LabeledEdit5.Text)+''',Nation_Name='''+Trim(LabeledEdit6.Text)+''' where ID='''+Trim(LabeledEdit4.Text)+'''';
                Execute;