zfrm_unitdisku.pas

一个很不错的评标系统

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

unit zfrm_UnitDiskU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Db, DBTables,zmod_CommonFuncProcU,uProcSBP;

type
  Tzfrm_UnitDisk = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label2: TLabel;
    Query1: TQuery;
    Query2: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FUnit:array[0..1] of TStringList;
  public
    { Public declarations }
  end;

var
  zfrm_UnitDisk: Tzfrm_UnitDisk;

implementation

uses zfrm_UnitManageU;

{$R *.DFM}
 {$I Version.inc}
procedure Tzfrm_UnitDisk.Button2Click(Sender: TObject);
begin
  // 取消
  Close ;
  //
end;

procedure Tzfrm_UnitDisk.Button1Click(Sender: TObject);
var
  S:string;
  StrSql:string;
begin
  // 确定
  if ComboBox1.Text='' then
  begin
       Application.MessageBox('请选择投标单位！','提示信息', MB_OK+MB_ICONASTERISK);
       Exit;
  end  ;
  if Application.MessageBox(
        '请插入软盘，按 “是” 开始制作上报盘',
        '上报盘制作',
        MB_YesNo + MB_ICONINFORMATION )=ID_YES
  then
  begin
       Try
            if not  FileExists(FuGetFilePath+FFileNameTemp) then
            begin
                  Application.MessageBox(
                '模板文件不存在！',
                 '上报盘制作',
                 MB_OK + MB_ICONINFORMATION );

               Exit;
            end;
            if not SetUnitPro(FuGetFilePath+FFileNameTemp,Trim(FUnit[0].Strings[Funit[1].IndexOf(Trim(ComBoBox1.Text))]),Trim(Label2.Caption)) then
            begin
                   Application.MessageBox(
                    '源文件格式错误！',
                    '上报盘制作',
                    MB_OK + MB_ICONINFORMATION )
            end
            else
            begin
                    {$ifDEf RELEASE}
                    S:='A:\'+FFileName;
                    {$Else}
                    S:='D:\'+FFileName;
                    {$ENDIF}

                    if CopyFile(PChar(FuGetFilePath+FFileNameTemp),PChar(S),False) then
                    begin
                          Application.MessageBox(
                                '制作成功！',
                                '上报盘制作',
                                MB_OK + MB_ICONINFORMATION );
                          with Query2 do
                          begin
                              Sql.Clear;
                              //Sql.Add(' update TM_PROJECTINFO  set PI_LOCKTYPE=''锁定'',PI_STATETYPE=''进行'' where PI_CODE=:PCODE)
                              StrSql:=' update TM_PROJECTINFO'
                                      +' set PI_LOCKTYPE='''+'锁定'+''',PI_STATETYPE='''+'进行中'+''''
                                      +' where PI_CODE=:PCODE';
                              Sql.Add(StrSql);
                              Close;
                              ParamByName('PCODE').AsString:=Trim(zh_ci_codeS);
                              ExecSql;
                              Close
                          end;
                    end
                    else
                          Application.MessageBox(
                        '磁盘没有准备好！',
                         '上报盘制作',
                         MB_OK + MB_ICONINFORMATION );

             end;
       Except
            Application.MessageBox(
        '磁盘没有准备好！',
        '上报盘制作',
        MB_OK + MB_ICONINFORMATION );
       end;
  end;

  //
end;

procedure Tzfrm_UnitDisk.FormShow(Sender: TObject);
var
 i:integer;
begin
     ComboBox1.Items.Clear;
     for i:=0 to 1 do
     begin
         FUnit[i]:=TStringList.Create;
     end;
     With Query1 do
     begin
        Close;
        ParamByName('PCODE').AsString:=Trim(zh_ci_codeS);
        Open;

        if RecordCount=0 then
        begin
            Application.MessageBox('请您首先指定该工程的竞标单位','提示信息', MB_OK+MB_ICONASTERISK);
            zfrm_UnitManage.ShowModal;
            Close;
            Open;
        end;
        if RecordCount=0 then
            PostMessage(zfrm_UnitDisk.Handle,WM_CLOSE,0,0);
        First;
        while Not Eof do
        begin

           FUnit[0].Add(FieldByName('G_UI_ID').AsString);
           FUnit[1].Add(FieldByName('UI_NAME').AsString);
           next
        end;
     end;
     ComboBox1.Items.Assign(FUnit[1]);
end;

procedure Tzfrm_UnitDisk.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
 i:integer;
begin
     for i:=0 to 1 do
     begin
         FUnit[i].Free;
     end;

end;

end.