thing_base.pas

delphi的一个开发实例

        Cmd_Storge_Delete.Enabled:=true;
        Cmd_Storge_Edit.Enabled:=true;
        Cmd_Storge_Save.Enabled:=False;
    end;
    if Cmd_Storge_Exit.Caption='刷新'then
    begin
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            frm_data.ClientDataSet_Add.CommandText:='Select * from [Storage]';
            open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                first;
                Strorge_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
                Strorge_No.Text:=frm_data.ClientDataSet_Add.FieldValues['storage_No'];
                Strorge_Name.Text:=frm_data.ClientDataSet_Add.FieldValues['storage_Name'];
                Strorge_Type.Text:=frm_data.ClientDataSet_Add.FieldValues['storage_Type'];
                Strorge_area.Text:=frm_data.ClientDataSet_Add.FieldValues['area'];
                Strorge_Address.Text:=frm_data.ClientDataSet_Add.FieldValues['Address'];
                Strorge_Telphone.Text:=frm_data.ClientDataSet_Add.FieldValues['Telphone'];
                Strorge_Fax.Text:=frm_data.ClientDataSet_Add.FieldValues['Fax'];
                Strorge_volume.Text:=frm_data.ClientDataSet_Add.FieldValues['volume'];
                Strorge_Manage.Text:=frm_data.ClientDataSet_Add.FieldValues['Manager'];
                Strorge_remark.Text:=frm_data.ClientDataSet_Add.FieldValues['remark'];

                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:='仓库名称';
                DBGrid2.Columns[3].Title.caption:='仓库类型';
                DBGrid2.Columns[4].Title.caption:='所属区域';
                DBGrid2.Columns[5].Title.caption:='详细地址';
                DBGrid2.Columns[6].Title.caption:='联系电话';
                DBGrid2.Columns[7].Title.caption:='传真号码';
                DBGrid2.Columns[8].Title.caption:='仓库大小';
                DBGrid2.Columns[9].Title.caption:='仓库管理员';
                DBGrid2.Columns[10].Title.caption:='备注说明';
            end;
        end;
    end;
end;

procedure Tfrm_Thing_Base.Cmd_Storge_SaveClick(Sender: TObject);
begin
    if trim(Strorge_Name.Text)='' then
    begin
        application.MessageBox('添加失败,［仓库名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_Name.SetFocus;
        Exit;
    end;
    if trim(Strorge_No.Text)='' then
    begin
        Application.MessageBox('添加失败,［仓库编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_No.SetFocus;
        Exit;
    end;
    if trim(Strorge_Type.Text)='' then
    begin
        application.MessageBox('添加失败,［仓库类型］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_Type.SetFocus;
        Exit;
    end;
    if trim(Strorge_area.Text)='' then
    begin
        application.MessageBox('添加失败,［所属区域］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_area.SetFocus;
        Exit;
    end;
    try
        with frm_data.ClientDataSet_Add do
        begin
            Close;
            CommandText:='';
            CommandText:='Select * from [Storage] where storage_No='''+Trim(Strorge_No.Text)+''' and storage_Name='''+Trim(Strorge_Name.Text)+'''';
            open;
            if frm_data.ClientDataSet_Add.RecordCount>0 then
            begin
                application.MessageBox('添加失败,该记录已经存在，请确认！',pchar(application.Title),mb_iconwarning);
                Cmd_Storge_Add.Enabled:=true;
                Cmd_Storge_Delete.Enabled:=true;
                Cmd_Storge_Edit.Enabled:=true;
                Cmd_Storge_Save.Enabled:=False;
                Exit;
            end
            else
            begin
                try
                    with frm_data.ClientDataSet_Add do
                    begin
                        Close;
                        CommandText:='';
                        CommandText:='insert into [Storage](storage_No,storage_Name,storage_Type,area,Address,Telphone,Fax,volume,Manager,remark) values ('''+Trim(Strorge_No.Text)+''','''+Trim(Strorge_Name.Text)+''','''+Trim(Strorge_Type.Text)+''','''+Trim(Strorge_area.Text)+''','''+Trim(Strorge_Address.Text)+''','''+Trim(Strorge_Telphone.Text)+''','''+Trim(Strorge_Fax.Text)+''','''+Trim(Strorge_volume.Text)+''','''+Trim(Strorge_Manage.Text)+''','''+Trim(Strorge_remark.Text)+''')';
                        Execute;

                        frm_data.DataSource1.Enabled:=False;
                        Close;
                        CommandText:='';
                        CommandText:='select * from [staff_Type]order by ID';
                        Open;

                        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:='仓库名称';
                        DBGrid2.Columns[3].Title.caption:='仓库类型';
                        DBGrid2.Columns[4].Title.caption:='所属区域';
                        DBGrid2.Columns[5].Title.caption:='详细地址';
                        DBGrid2.Columns[6].Title.caption:='联系电话';
                        DBGrid2.Columns[7].Title.caption:='传真号码';
                        DBGrid2.Columns[8].Title.caption:='仓库大小';
                        DBGrid2.Columns[9].Title.caption:='仓库管理员';
                        DBGrid2.Columns[10].Title.caption:='备注说明';
                    end;
                    application.MessageBox('添加成功',pchar(application.Title),mb_iconwarning);
                except
                    application.MessageBox('添加失败，请检查连接网络是否正常或数据格式是否正确，请确认！',pchar(application.Title),mb_iconwarning);
                    Cmd_Storge_Add.Enabled:=true;
                    Cmd_Storge_Delete.Enabled:=true;
                    Cmd_Storge_Edit.Enabled:=true;
                    Cmd_Storge_Save.Enabled:=False;
                    EXit;
                end;
            end;
        end;
    except
        application.MessageBox('添加失败请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
        Cmd_Storge_Add.Enabled:=true;
        Cmd_Storge_Delete.Enabled:=true;
        Cmd_Storge_Edit.Enabled:=true;
        Cmd_Storge_Save.Enabled:=False;
        Exit;
    end;
end;

procedure Tfrm_Thing_Base.DBGrid2CellClick(Column: TColumn);
begin
    Strorge_ID.Text:=frm_data.ClientDataSet_Add.FieldValues['ID'];
    Strorge_No.Text:=frm_data.ClientDataSet_Add.FieldValues['storage_No'];
    Strorge_Name.Text:=frm_data.ClientDataSet_Add.FieldValues['storage_Name'];
    Strorge_Type.Text:=frm_data.ClientDataSet_Add.FieldValues['storage_Type'];
    Strorge_area.Text:=frm_data.ClientDataSet_Add.FieldValues['area'];
    Strorge_Address.Text:=frm_data.ClientDataSet_Add.FieldValues['Address'];
    Strorge_Telphone.Text:=frm_data.ClientDataSet_Add.FieldValues['Telphone'];
    Strorge_Fax.Text:=frm_data.ClientDataSet_Add.FieldValues['Fax'];
    Strorge_volume.Text:=frm_data.ClientDataSet_Add.FieldValues['volume'];
    Strorge_Manage.Text:=frm_data.ClientDataSet_Add.FieldValues['Manager'];
    Strorge_remark.Text:=frm_data.ClientDataSet_Add.FieldValues['remark'];
end;

procedure Tfrm_Thing_Base.Cmd_Storge_EditClick(Sender: TObject);
begin
    if trim(Strorge_Name.Text)='' then
    begin
        application.MessageBox('修改操作失败,［仓库名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_Name.SetFocus;
        Exit;
    end;
    if trim(Strorge_No.Text)='' then
    begin
        application.MessageBox('修改操作失败,［仓库编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_No.SetFocus;
        Exit;
    end;
    if trim(Strorge_Type.Text)='' then
    begin
        application.MessageBox('修改操作失败,［仓库类型］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_Type.SetFocus;
        Exit;
    end;
    if trim(Strorge_area.Text)='' then
    begin
        application.MessageBox('修改操作失败,［所属区域］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_area.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 [Storage] set storage_No='''+Trim(Strorge_No.Text)+''',storage_Name='''+Trim(Strorge_Name.Text)+''',storage_Type='''+Trim(Strorge_Type.Text)+''',area='''+Trim(Strorge_area.Text)+''',Address='''+Trim(Strorge_Address.Text)+''',Telphone='''+Trim(Strorge_Telphone.Text)+''',Fax='''+Trim(Strorge_Fax.Text)+''',volume='''+Trim(Strorge_volume.Text)+''',Manager='''+Trim(Strorge_Manage.Text)+''',remark='''+Trim(Strorge_Remark.Text)+''' where ID='''+Trim(Strorge_ID.Text)+'''';
                Execute;

                Close;
                CommandText:='';
                frm_data.ClientDataSet_Add.CommandText:='select * from [Storage] 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:='仓库名称';
                DBGrid2.Columns[3].Title.caption:='仓库类型';
                DBGrid2.Columns[4].Title.caption:='所属区域';
                DBGrid2.Columns[5].Title.caption:='详细地址';
                DBGrid2.Columns[6].Title.caption:='联系电话';
                DBGrid2.Columns[7].Title.caption:='传真号码';
                DBGrid2.Columns[8].Title.caption:='仓库大小';
                DBGrid2.Columns[9].Title.caption:='仓库管理员';
                DBGrid2.Columns[10].Title.caption:='备注说明';
                application.MessageBox('修改操作成功，请确认！',pchar(application.Title),MB_ICONEXCLAMATION);
            except
                application.MessageBox('修改操作失败，请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
                Exit;
            end;
        end;
    end;
end;

procedure Tfrm_Thing_Base.Cmd_Storge_DeleteClick(Sender: TObject);
begin
    if trim(Strorge_Name.Text)='' then
    begin
        application.MessageBox('删除操作失败,［仓库名称］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_Name.SetFocus;
        Exit;
    end;
    if trim(Strorge_No.Text)='' then
    begin
        application.MessageBox('删除操作失败,［仓库编号］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_No.SetFocus;
        Exit;
    end;
    if trim(Strorge_Type.Text)='' then
    begin
        application.MessageBox('删除操作失败,［仓库类型］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_Type.SetFocus;
        Exit;
    end;
    if trim(Strorge_area.Text)='' then
    begin
        application.MessageBox('删除操作失败,［所属区域］不能为空！，请确认！',pchar(application.Title),mb_iconwarning);
        Strorge_area.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 [Storage] where ID='''+Trim(Strorge_ID.Text)+'''';
                Execute;
                Close;
                CommandText:='';
                CommandText:='select * from [Storage]order by ID';
                Open;
                if frm_data.ClientDataSet_Add.RecordCount>0 then
                begin
                    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:='仓库名称';
                    DBGrid2.Columns[3].Title.caption:='仓库类型';
                    DBGrid2.Columns[4].Title.caption:='所属区域';
                    DBGrid2.Columns[5].Title.caption:='详细地址';
                    DBGrid2.Columns[6].Title.caption:='联系电话';
                    DBGrid2.Columns[7].Title.caption:='传真号码';
                    DBGrid2.Columns[8].Title.caption:='仓库大小';
                    DBGrid2.Columns[9].Title.caption:='仓库管理员';
                    DBGrid2.Columns[10].Title.caption:='备注说明';
                end
                else
                begin
                    frm_data.DataSource1.Enabled:=false;
                end;
                application.MessageBox('删除操作成功',pchar(application.Title),mb_iconwarning);
            except
                application.MessageBox('删除操作失败，请检查连接网络是否正常，请确认！',pchar(application.Title),mb_iconwarning);
            end;
        end;
    end;
end;

procedure Tfrm_Thing_Base.Cmd_P_CancelClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Thing_Base.Cmd_E_CancelClick(Sender: TObject);
begin
    frm_Data.ClientDataSet_Add.Active:=False;
    frm_data.DataSource1.Enabled:=false;
    frm_data.ClientDataSet2.Active:=False;
    Close;
end;

procedure Tfrm_Thing_Base.Cmd_S_CancelClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Thing_Base.Cmd_Y_ExitClick(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Thing_Base.PageControl2Change(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Thing_Base.SpeedButton28Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Thing_Base.SpeedButton30Click(Sender: TObject);
begin
    Close;
end;

procedure Tfrm_Thing_Base.Cmd_SH_ExitClick(Sender: TObject);
begin
    Close;
end;