over.~pas

结于初学者来说这对数据库是一个很好的例子

    begin
        Q_insys.First;
      for i:=1 to Q_insys.RecordCount do
       begin
        Q_insys.Edit;
        Q_insys['BeginTime']:=StrToDateTime(FJ_BeginTime.Caption);
        Q_insys['EndTime']:=now;
        Q_insys.Post;
        Q_insys.Next;
       end;
    end;
//结束
//如果款待和抵值金额不为零，则按款待和抵值人修改相应的金额；
  if StrToInt(trim(Jz_kd.Text))<>0  then
    begin
       Q_insys.SQL.Clear;
       Q_insys.SQL.Add('select * from UserInfo where UserNo='''+Jz_kdr.Text+'''');
       Q_insys.Open;
       userno:=Q_insys.fieldbyname('userno').AsString;
       Q_insys.Edit;
       Q_insys['TotalMoney']:=Q_insys['TotalMoney']+StrToInt(trim(Jz_kd.Text));
       Q_insys.Post;
       Q_insys.Close;
       T_dzkd.Close;
       T_dzkd.Open;
       T_dzkd.AppendRecord([Fj_AccountNo.caption,userno,jz_kdr.text,strtoint(trim(jz_kd.text)),now,form1.operator.caption,'客房','款待']);
       T_dzkd.Close;
    end;
  if  StrToInt(trim(Jz_dz.Text))<>0  then
    begin
       Q_insys.SQL.Clear;
       Q_insys.SQL.Add('select * from VipInfo where UserNo='''+Jz_dzr.Text+'''');
       Q_insys.Open;
       userno:=Q_insys.fieldbyname('userno').AsString;
       Q_insys.Edit;
       Q_insys['TotalMoney']:=Q_insys['TotalMoney']-StrToInt(trim(Jz_dz.Text));
       Q_insys.Post;
       Q_insys.Close;
       T_dzkd.Close;
       T_dzkd.Open;
       T_dzkd.AppendRecord([Fj_AccountNo.caption,userno,jz_dzr.text,strtoint(trim(jz_dz.text)),now,form1.operator.caption,'客房','抵值']);
       T_dzkd.Close;
    end;
//调用打印界面
   form40.fj.Caption:=fj_roomno.Caption;
   form40.xm.Caption:=fj_name.Caption;
   form40.zdh.Caption:=fj_accountno.Caption;
   form40.fjfy.caption:=xf_ff.Caption;
   form40.ysje.Caption:=xf_ysje.Caption;
   form40.zkje.Caption:=zkje.Caption;
   form40.sfje.Caption:=xf_sfje.Caption;
   form40.mlje.Caption:=trim(jz_ml.Text);
   form40.rzrq.Caption:=fj_begintime.Caption;
   form40.jzrq.Caption:=datetimetostr(now);
  form40.query1.active:=false;
  form40.query1.sql.clear;
  form40.query1.sql.add('select * from Dinlist where accountno=cdbl('''+fj_accountno.Caption+''')');
  form40.query1.active:=true;
  form40.QuickRep1.Print;

{    Form22.Q_RoomName.Caption:=fj_RoomNo.Caption;
    Form22.Q_date.Caption:=DateTimeToStr(now);
    Form22.Q_name.Caption:=FJ_name.Caption;
    Form22.Q_type1.Caption:=XF_ff.Caption;
    Form22.Q_type2.Caption:=XF_ryp.Caption;
    Form22.Q_type3.Caption:=XF_sp.Caption;
    Form22.Q_type4.Caption:=XF_yl.Caption;
    Form22.Q_type5.Caption:=XF_jl.Caption;
    Form22.Q_type6.Caption:=XF_qt.Caption;
    Form22.Q_zlfy.Caption:=XF_zlfy.Caption;
    Form22.Q_ysje.Caption:=XF_ysje.Caption;
    Form22.Q_zkje.Caption:=zkje.Caption;
    Form22.Q_mlje.Caption:=trim(Jz_ml.Text);
    Form22.Q_sfje.Caption:=XF_sfje.Caption;
    Form22.Q_AccountNo.Caption:=Fj_AccountNo.Caption;
    Form22.QuickRep1.Print;
}
    //结束
       end
     else
     begin
       MessageDlg('输入不正确，请重新输入！',mtError,[mbok],0);
     end;
end;

procedure TForm20.SpeedButton2Click(Sender: TObject);
 var RoomN:string;
begin
   RoomN:=FJ_RoomNo.Caption;
//将RoomIn对应数据复制到H_RoomIn中后删除
   Q_over.SQL.Clear;
   Q_over.SQL.Add('Insert into H_RoomIn select * from RoomIn where RoomIn.RoomName='''+RoomN+'''');
   Q_over.ExecSQL;
   Q_over.SQL.Clear;
   Q_over.SQL.Add('delete from RoomIn where RoomName='''+RoomN+'''');
   Q_over.ExecSQL;

//结束
//将Account对应数据复制到H_Account中后删除
   Q_over.SQL.Clear;
   Q_over.SQL.Add('Insert into H_Account select * from Account where Account.RoomName='''+RoomN+'''');
   Q_over.ExecSQL;
   Q_over.SQL.Clear;
   Q_over.SQL.Add('delete from Account where RoomName='''+RoomN+'''');
   Q_over.ExecSQL;
//结束
//将DinList对应数据复制到H_DinList中后删除
   Q_over.SQL.Clear;
   Q_over.SQL.Add('Insert into H_DinList select * from DinList where DinList.RoomName='''+RoomN+'''');
   Q_over.ExecSQL;
   Q_over.SQL.Clear;
   Q_over.SQL.Add('delete from DinList where RoomName='''+RoomN+'''');
   Q_over.ExecSQL;
   //结束
//更改RoomInfo中对应房间状态置为空房
   Q_over.SQL.Clear;
   Q_over.SQL.Add('select * from RoomInfo where RoomName='''+RoomN+'''');
   Q_over.open;
   Q_over.Edit;
   Q_over['RoomStatus']:=0;
   Q_over['NowAccountNo']:=0;
   Q_over.Post;
   Q_over.Close;
//结束
//刷新Form1中房间状态列表，并关闭本界面
   form1.refe;
   form20.Close;
//结束
end;

procedure TForm20.Jz_zklKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.Jz_mlKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.Jz_rmbKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.Jz_zpKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.Jz_xykKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.Jz_kdKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.Jz_kdrKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.Jz_dzKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TForm20.FormShow(Sender: TObject);
begin
  seekd.Enabled:=False;
  Seedz.Enabled:=false;
  jz_zkl.EditMask:='999;1; ';
  jz_ml.EditMask:='999;1; ';
  jz_rmb.EditMask:='99999;1; ';
  jz_zp.EditMask:='99999;1; ';
  jz_xyk.EditMask:='99999;1; ';
  jz_kd.EditMask:='99999;1; ';
  jz_dz.EditMask:='99999;1; ';
  jz_zkl.Text:='100';
  jz_ml.Text:='0';
  jz_rmb.Text:='0';
  jz_zp.Text:='0';
  jz_xyk.Text:='0';
  jz_kd.Text:='0';
  jz_dz.Text:='0';
  jz_kdr.Text:='';
  jz_dzr.Text:='';
  Q_kdr.Open;
  Q_kdr.Active:=True;
while not Q_kdr.Eof do
        begin
          jz_kdr.Items.Add(Q_kdr.FieldByName('UserNo').AsString);
          Q_kdr.Next;
        end;
  Q_dzr.Open;
  Q_dzr.Active:=True;
while not Q_dzr.Eof do
        begin
          jz_dzr.Items.Add(Q_dzr.FieldByName('UserNo').AsString);
          Q_dzr.Next;
        end;
    jz_zkl.SetFocus;
end;

procedure TForm20.Button1Click(Sender: TObject);
begin
 form38.DBGrid1.OnDblClick:=form38.DBGrid1DblClick;
 form38.showmodal;
end;

procedure TForm20.Jz_kdrSelect(Sender: TObject);
begin
  seekd.Enabled:=true;
end;

procedure TForm20.Jz_dzrSelect(Sender: TObject);
begin
 seedz.Enabled:=True;
end;

procedure TForm20.seekdClick(Sender: TObject);
  var filen:string;
begin
 see_kdr.Active:=False;
 See_kdr.SQL.Clear;
 See_kdr.SQL.Add('select * from userinfo where username='''+jz_kdr.Text+'''');
 See_kdr.Active:=True;
 filen:='image\'+See_kdr.fieldbyname('userno').AsString+'.bmp';
 see_kdr.Active:=False;
 form41.Image1.Picture.LoadFromFile(filen);
 form41.showmodal;

end;

procedure TForm20.seedzClick(Sender: TObject);
  var filen:string;
begin
 see_kdr.Active:=False;
 See_kdr.SQL.Clear;
 See_kdr.SQL.Add('select * from vipinfo where username='''+jz_dzr.Text+'''');
 See_kdr.Active:=True;
 filen:='image\'+See_kdr.fieldbyname('userno').AsString+'.bmp';
 see_kdr.Active:=False;
 form41.Image1.Picture.LoadFromFile(filen);
 form41.showmodal;

end;

end.