zfrm_unitmanageu.pas

专业的评标管理系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_UnitManageU                                       *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_UnitManageU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, DBTables, ComCtrls, ExtCtrls,zmod_commonDateU,zmod_CommonFuncProcU;

type
  Tzfrm_UnitManage = class(TForm)
    Button3: TButton;
    Button4: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    DBEdit2: TDBEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    Query1: TQuery;
    Query2: TQuery;
    DataSource1: TDataSource;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zfrm_UnitManage: Tzfrm_UnitManage;

implementation

uses zfrm_projectSetUpdateU, zfrm_projectSetAddU;



{$R *.DFM}

procedure Tzfrm_UnitManage.Button2Click(Sender: TObject);
var
   Str,StrSql:string;


begin
  // 增加记录

  zfrm_projectSetAdd.Edit1.text:='';
  //判断是否确认增加
  if zfrm_projectSetAdd.ShowModal<>mrOk then exit;
  if Trim(zfrm_projectSetAdd.Edit1.text)='' then exit;

   Str:='GE_UI_ID';
   StrSql:='Insert into TM_BIDUNITINFO(G_UI_ID, UI_NAME,PI_CODE)'
             +' Values(:ICode,:SName,:PCODE)';

  //增加纪录
  try
      with Query2 do
      begin
          Sql.Clear;
          Sql.Add(StrSql);
          ParamByName('iCode').AsInteger:=zh_GetNewIdF(Str);
          ParamByName('sName').AsString:=Trim(zfrm_projectSetAdd.Edit1.Text);
          ParamByName('PCode').AsString:=Trim(zh_ci_codeS);
          ExecSql;
          Close;
          Query1.Close;
          Query1.Open;
      end;
  except
      Application.MessageBox('数据库出错，请与数据库管理员联系！','提示信息', MB_Ok+MB_ICONASTERISK);

  end;

  //
end;

procedure Tzfrm_UnitManage.Button1Click(Sender: TObject);
var
   StrSql:string;


begin




   StrSql:='update TM_BIDUNITINFO '
          +' set UI_NAME=:sname'
          +' where g_ui_Id=:iCode';

   zfrm_projectSetUpdate.Edit2.Text:='';
   zfrm_projectSetUpdate.Edit1.Text:=Query1.FieldByName('UI_NAME').AsString;
   if zfrm_projectSetUpdate.ShowModal<>mrOk then
       exit;
   try
      with Query2 do
      begin
          Sql.Clear;
          Sql.Add(StrSql);
          ParamByName('iCode').AsInteger:=query1.fieldbyname('g_ui_Id').AsInteger;
          ParamByName('sName').AsString:=Trim(zfrm_projectSetUpdate.Edit2.Text);
          ExecSql;
          Close;
          Query1.Close;
          Query1.Open;
      end;
  except
      Application.MessageBox('无法更新信息！','提示信息', MB_Ok+MB_ICONASTERISK);

  end;



end;

procedure Tzfrm_UnitManage.Button3Click(Sender: TObject);
var
   StrSql:string;
begin
    //删除提示
    if Application.MessageBox(
       '您是否要删除，此条记录！',
       '删除记录',
       MB_YesNo + MB_ICONWARNING)=ID_YES  then
    begin
          StrSql:='delete from TM_BIDUNITINFO'
                   +' where g_ui_Id=:ICode';

        with Query2 do
        begin
            Sql.Clear;
            Sql.Add(StrSql);
            ParamByName('iCode').AsInteger:=Query1.FieldByName('g_ui_Id').AsInteger;
            ExecSql;
        end;
        Query1.Close;
        Query1.Open;
    end;
end;

procedure Tzfrm_UnitManage.Button4Click(Sender: TObject);
begin
  // 关闭
  Close ;
  //
end;

procedure Tzfrm_UnitManage.FormShow(Sender: TObject);
begin

  with Query1 do
  begin
       Close;
       ParamByName('PCODE').AsString:=Trim(zh_ci_codeS);
       Open;
  end;
end;

end.