zfrm_projectsetup1u.pas

专业的评标管理系统

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

unit zfrm_ProjectSetup1U;

interface

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

type
  Tzfrm_ProjectSetup = class(TForm)
    Label3: TLabel;
    Image1: TImage;
    Button3: TButton;
    Button4: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    DBGrid2: TDBGrid;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    DBGrid3: TDBGrid;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DBEdit2: TDBEdit;
    DBEdit1: TDBEdit;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    DataSource2: TDataSource;
    Query3: TQuery;
    DataSource3: TDataSource;
    Query4: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Query2AfterOpen(DataSet: TDataSet);
    procedure PageControl1Change(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zfrm_ProjectSetup: Tzfrm_ProjectSetup;

implementation

uses zfrm_projectSetUpdateU, zfrm_projectSetAddU;



{$R *.DFM}

procedure Tzfrm_ProjectSetup.Button2Click(Sender: TObject);
var
   Str,StrSql:string;
   PDataSet:TQuery; //得到当前工程属性所对应的DataSet

begin
  // 增加记录
  zfrm_projectSetAdd.Edit1.text:='';
  //判断是否确认增加
  if zfrm_projectSetAdd.ShowModal<>mrOk then exit;
  if  Trim(zfrm_projectSetAdd.Edit1.Text)='' then exit;
  PDataSet:=nil;
  //判断是对那个工程属性进行操作
  case  Pagecontrol1.ActivePageIndex of
  0:           //招标形式
  begin
       Str:='GE_BT_ID';
       StrSql:='Insert into TM_PI_BIDTYPEA(G_BT_ID, BT_NAME)'
               +' Values(:ICode,:SName)';
       PDataSet:=Query1;
  end;
  1:        //发包形式
  begin
      Str:='GE_ST_ID';
      StrSql:='Insert into TM_PI_SENDTYPEA(G_ST_ID, ST_NAME)'
               +' Values(:ICode,:SName)';
       PDataSet:=Query2;

  end;
  2:       //工程类型
  begin
     Str:='GE_PT_ID';
     StrSql:='Insert into TM_PI_PROJECTTYPEA(G_PT_ID, PT_NAME)'
               +' Values(:ICode,:SName)';
       PDataSet:=Query3;
  end;
  end;
  //增加纪录
  try
      with Query4 do
      begin
          Sql.Clear;
          Sql.Add(StrSql);
          ParamByName('iCode').AsInteger:=zh_GetNewIdF(Str);
          ParamByName('sName').AsString:=Trim(zfrm_projectSetAdd.Edit1.Text);
          ExecSql;
      end;
      PDataSet.Close;
      PDataSet.Open;
  except
      Application.MessageBox('名称已经存在！','提示信息', MB_Ok+MB_ICONASTERISK);
      
  end;

  //
end;

procedure Tzfrm_ProjectSetup.Button1Click(Sender: TObject);
var
   StrSql:string;
   PDataSet:TQuery;
   Bk:TBookmarkStr;
begin
  // 增加记录
  PDataSet:=nil;
  //判断是对那个工程属性进行操作
  case  Pagecontrol1.ActivePageIndex of
  0:
  begin
       StrSql:='update TM_PI_BIDTYPEA'
               +' set  BT_NAME=:SName '
               +' where G_BT_ID=:ICode';
       PDataSet:=Query1;
  end;
  1:
  begin
       StrSql:='update TM_PI_SENDTYPEA'
               +' set  ST_NAME=:SName '
               +' where G_ST_ID=:ICode';

       PDataSet:=Query2;

  end;
  2:
  begin
      StrSql:='update TM_PI_PROJECTTYPEA'
               +' set  PT_NAME=:SName '
               +' where G_PT_ID=:ICode';

      PDataSet:=Query3;
  end;
  end;
  //得到当前的Cursor
  Bk:=PDataSet.Bookmark;
  zfrm_projectSetUpdate.Edit2.Text:='';
  zfrm_projectSetUpdate.Edit1.Text:=PDataSet.Fields[1].AsString;
  if zfrm_projectSetUpdate.ShowModal<>mrOk then
     exit;
  //修改纪录]
  with Query4 do
  begin
      Sql.Clear;
      Sql.Add(StrSql);
      ParamByName('iCode').AsInteger:=PDataSet.Fields[0].AsInteger;
      ParamByName('sName').AsString:=Trim(zfrm_projectSetUpdate.Edit2.Text);
      ExecSql;
  end;
  PDataSet.Close;
  PDataSet.Open;
  //回到当前的纪录位置
  PDataSet.GotoBookmark(Pointer(Bk));

  // 更新数据

  //
end;

procedure Tzfrm_ProjectSetup.Button3Click(Sender: TObject);
var
  StrSql:string;
  PDataSet:TQuery;
begin
  //删除提示
  // 删除记录
  //
  PDataSet:=nil;
  if Application.MessageBox(
     '您是否要删除，此条记录！',
     '删除记录',
     MB_YesNo + MB_ICONWARNING)=ID_YES  then
  begin
          case  Pagecontrol1.ActivePageIndex of
          0:
          begin
               StrSql:='delete from TM_PI_BIDTYPEA'
                       +' where G_BT_ID=:ICode';
               PDataSet:=Query1;
          end;
          1:
          begin
               StrSql:='delete from TM_PI_SENDTYPEA'
                       +' where G_ST_ID=:ICode';

               PDataSet:=Query2;

          end;
          2:
          begin
              StrSql:='delete from TM_PI_PROJECTTYPEA'
                       +' where G_PT_ID=:ICode';

              PDataSet:=Query3;
          end;
          end;
          with Query4 do
          begin
              Sql.Clear;
              Sql.Add(StrSql);
              ParamByName('iCode').AsInteger:=PDataSet.Fields[0].AsInteger;
              ExecSql;
          end;
          PDataSet.Close;
          PDataSet.Open;
  end;
end;

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

procedure Tzfrm_ProjectSetup.Query2AfterOpen(DataSet: TDataSet);
begin
       If DataSet.RecordCount=0 then
       begin
         Button1.Enabled:=False;
         Button3.Enabled:=False;
       end
       else
       begin
         Button1.Enabled:=True;
         Button3.Enabled:=True;
       end;
end;

procedure Tzfrm_ProjectSetup.PageControl1Change(Sender: TObject);
var
  DataSet:TQuery;
begin
     DataSet:=nil;
     Case PageControl1.ActivePageIndex of
     0:
        DataSet:=Query1;
     1:
        DataSet:=Query2;
     2:
        DataSet:=Query3;
     end;
     DataSet.Close;
     DataSet.Open;
end;

procedure Tzfrm_ProjectSetup.Query1AfterOpen(DataSet: TDataSet);

begin
    if DataSet.RecordCount=0 then
    begin
         Button1.Enabled:=False;
         Button3.Enabled:=False;
    end
    else
    begin
         Button1.Enabled:=True;
         Button3.Enabled:=True;

    end;
end;

procedure Tzfrm_ProjectSetup.FormShow(Sender: TObject);
begin
        Query1.Open;
end;

end.