slfp.pas

北京铁路局住房分配系统,数据库为MSSql2000,依次执行crebas4.sql

unit Slfp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ExtCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls;

type
  TFormSLFP = class(TForm)
    Panel1: TPanel;
    Button2: TButton;
    Button4: TButton;
    Panel2: TPanel;
    Button5: TButton;
    Button3: TButton;
    Button1: TButton;
    Button6: TButton;
    Panel3: TPanel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Button7: TButton;
    Button8: TButton;
    Labelbh: TLabel;
    Edit1: TEdit;
    Labelmc: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label2: TLabel;
    Edit4: TEdit;
    Label3: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBGrid1: TDBGrid;
    procedure Button5Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure Edit8Exit(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Edit6Exit(Sender: TObject);
  private
    { Private declarations }
    nform:smallint;     //0:初始 1：增加 2：保存；
    DWBH,YTBH:string;
    YJSL,EJSL,SJSL,FSEJ,FSSJ,QT,HJ:smallint;
  public
    { Public declarations }
  end;

var
  FormSLFP: TFormSLFP;

implementation

uses datamodl,Publicfun;

{$R *.dfm}

procedure TFormSLFP.Button5Click(Sender: TObject);
begin
   close;
end;

procedure TFormSLFP.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL,0,0);
    end;
end;

procedure TFormSLFP.Button4Click(Sender: TObject);
var
  HD:Thandle;
begin
  if nform= 0 then exit;
  if nform= 1 then
    if trim(combobox1.Text)<>'' then
      dwbh:= copy(trim(combobox1.Text),1,3)
    else
      begin
        showmessage('请选择分配单位');
        Combobox1.SetFocus;
        exit;
      end
  else
    if nform=2 then
      dwbh:= datamodule1.ADOQrySLFP.fieldbyname('dwbh').AsString;

  if nform= 1 then
    if trim(combobox2.Text)<>'' then
      ytbh:= copy(trim(combobox2.Text),1,2)
    else
      begin
        showmessage('请选择住房用途');
        Combobox2.SetFocus;
        exit;
      end
  else
    if nform=2 then
      ytbh:= datamodule1.ADOQrySLFP.fieldbyname('Ytbh').AsString;
  if trim(edit1.Text)='' then
    YJSL:=0
  else
    YJSL:= strtoint(trim(edit1.Text));
  if trim(edit2.Text)='' then
    EJSL:=0
  else
    EJSL:= strtoint(trim(edit2.Text));
  if trim(edit3.Text)='' then
    SJSL:=0
  else
    SJSL:= strtoint(trim(edit3.Text));
  if trim(edit4.Text)='' then
    FSEJ:=0
  else
    FSEJ:= strtoint(trim(edit4.Text));
  if trim(edit5.Text)='' then
    FSSJ:=0
  else
    FSSJ:= strtoint(trim(edit5.Text));
  if trim(edit6.Text)='' then
    QT:=0
  else
    QT:= strtoint(trim(edit6.Text));
  HJ:= YJSL+EJSL+SJSL+FSEJ+FSSJ+QT;
  if HJ= 0 then
    begin
      showmessage('各居室数量不能全为空，请重新设置！');
      exit;
    end;
  HD:= formslfp.Handle;
  if datamodule1.ADOSP.Active= true then
    datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_ZGFPB_Save;1';
  if nform= 1 then
     if datamodule1.ifexist('zgfpb','dwbh+ ytbh',DWBH+YTBH)= true then
       if messagebox(HD,pchar('数据库中已存在编号为<'+DWBH+YTBH+'>的纪录，是否更新？'),pchar('信息提示'),MB_YESNO)=IDYES then
         if ZgfpbAdd(DWBH,YTBH,YJSL,EJSL,SJSL,FSEJ,FSSJ,QT,HJ)=0  then
           showmessage('更新成功！')
         else
           begin
             showmessage('更新失败！');
             exit;
           end
       else
           exit
     else
       if ZgfpbAdd(DWBH,YTBH,YJSL,EJSL,SJSL,FSEJ,FSSJ,QT,HJ)=0  then
         showmessage('保存成功！')
       else
         begin
           showmessage('保存失败！');
           exit;
         end
  else
    if nform= 2 then
      if ZgfpbAdd(DWBH,YTBH,YJSL,EJSL,SJSL,FSEJ,FSSJ,QT,HJ)=0  then
        showmessage('更新成功！')
      else
        begin
          showmessage('更新失败！');
          exit;
        end;
  //datamodule1.ChangeTab('xqxxb');
  datamodule1.ADOQrySLFP.Requery();
 { dbgrid1.Columns[1].Title.caption:='分配途径';
  dbgrid1.Columns[3].Title.caption:='房屋用途';
  dbgrid1.Columns[4].Title.caption:='一居室';
  dbgrid1.Columns[5].Title.caption:='二居室';
  dbgrid1.Columns[6].Title.caption:='三居室';
  dbgrid1.Columns[7].Title.caption:='复式二居';
  dbgrid1.Columns[8].Title.caption:='复式三居';
  dbgrid1.Columns[9].Title.caption:='其他';
  dbgrid1.Columns[10].Title.caption:='合计';      }
  nform:=0;
  button1.Enabled:=true;
  button1.SetFocus;
  button2.Enabled:=true;
  button3.Enabled:=true;
  button6.Enabled:=true;
  button4.Enabled:=false;
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  dbgrid1.Enabled:=true;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  edit3.Enabled:=false;
  edit4.Enabled:=false;
  edit5.Enabled:=false;
  edit6.Enabled:=false;
end;

procedure TFormSLFP.Button2Click(Sender: TObject);
begin
   nform:=2;
   with datamodule1.ADOQrySLFP do
   begin
     combobox1.ItemIndex:=combobox1.Items.IndexOf(fieldbyname('dwbh').AsString+' | '
                                                 +fieldbyname('dwmc').AsString);
     combobox2.ItemIndex:=combobox2.Items.IndexOf(fieldbyname('ytbh').AsString+' | '
                                                 +fieldbyname('ytmc').AsString);
     edit1.Text:= fieldbyname('yjsl').AsString;
     edit2.Text:= fieldbyname('ejsl').AsString;
     edit3.Text:= fieldbyname('sjsl').AsString;
     edit4.Text:= fieldbyname('fsej').AsString;
     edit5.Text:= fieldbyname('fssj').AsString;
     edit6.Text:= fieldbyname('qt').AsString;
     edit7.Text:= fieldbyname('hj').AsString;
   end;
   edit1.Enabled:=true;
   edit2.Enabled:=true;
   edit3.Enabled:=true;
   edit4.Enabled:=true;
   edit5.Enabled:=true;
   edit6.Enabled:=true;
   dbgrid1.Enabled:= false;
   button1.Enabled:=false;
   button2.Enabled:=false;
   button6.Enabled:=false;
   button3.Enabled:=false;
   button4.Enabled:=true;
   button4.SetFocus;
end;

procedure TFormSLFP.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

procedure TFormSLFP.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

procedure TFormSLFP.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

procedure TFormSLFP.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

procedure TFormSLFP.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

procedure TFormSLFP.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

procedure TFormSLFP.Button3Click(Sender: TObject);
var
  CompA,CompB,nhx,nyt:smallint;
  cyt,cdw:string;
begin
  if datamodule1.ADOSP.Active= true then
    datamodule1.ADOSP.Close;
  datamodule1.ADOSP.ProcedureName:='P_TestZG0;1';
  ZGTest0(CompA,CompB,nhx,cyt);
  cyt:=trim(cyt);
  case nhx of
    1: begin