unit7.pas

作者针对当前酒店客房管理的现状

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, DB, DBTables;

type
  TForm7 = class(TForm)
    sm_Ledit: TLabeledEdit;
    zz_Ledit: TLabeledEdit;
    cbs_Ledit: TLabeledEdit;
    sl_Ledit: TLabeledEdit;
    cbrq_DTP: TDateTimePicker;
    dgrq_DTP: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);
begin
    sm_Ledit.Text:=Form6.Query1.FieldByname('Bookname').AsString;
    cbs_Ledit.Text:=Form6.Query1.FieldByname('Concern').AsString;
     zz_Ledit.Text:=Form6.Query1.FieldByname('Author').AsString;
      sl_Ledit.Text:=Form6.Query1.FieldByname('sl').AsString;
      dgrq_DTP.DateTime:=Form6.Query1.FieldByName('dgrq').AsDateTime;
        cbrq_DTP.DateTime:=Form6.Query1.FieldByName('OutDate').AsDateTime;
end;

procedure TForm7.Button1Click(Sender: TObject);
var id,sqlstr1,sqlstr,sm,zz,cbs,sl,cbrq,dgrq:string;

begin
    sm:=Trim(sm_Ledit.Text);
    if Length(sm)<1 then
    begin
    ShowMessage('请输入订购图书书名');
    exit;
    end;
     zz:=Trim(zz_Ledit.Text);
    if Length(zz)<1 then
    begin
    ShowMessage('请输入订购图书作者');
    exit;
    end;
     cbs:=Trim(cbs_Ledit.Text);
    if Length(cbs)<1 then
    begin
    ShowMessage('请输入订购图书出版社');
    exit;
    end;
    sl:=Trim(sl_Ledit.Text);
    if Length(sl)<1 then
    begin
    ShowMessage('请输入订购图书数量');
    exit;
    end;
  cbrq:=DateToStr(cbrq_DTP.DateTime);
   dgrq:=DateToStr(dgrq_DTP.DateTime);
   if Form6.modi then
   begin
   id:=Form6.Query1.FieldByName('Code').AsString;
   sqlstr:='update dinggoub set Bookname="'+sm+'",Author="'+zz+'" ,Concern="'+cbs;
   sqlstr:=sqlstr+'",OutDate="'+cbrq+'",sl="'+sl+'",dgrq="'+dgrq;
   sqlstr:=sqlstr+'" where(Code="'+id+'")';
   sqlstr1:='select*from dinggoub where(Bookname="'+sm+'")and(Author="'+zz+'")and(code<>"'+id+'")';
   end
   else
   begin
   sqlstr:='insert into dinggoub (Bookname,Author,Concern,Outdate,sl,dgrq)values ("'+sm+'","';
   sqlstr:= sqlstr+zz+'","'+cbs+'","'+cbrq+'","'+sl+'","'+dgrq+'")';
   sqlstr1:='select*from dinggoub where (Bookname="'+sm+'")and(Author="'+zz+'")';
   end;
   with TQuery.Create(nil) do
   begin
     try
     close;
     SQL.Clear;
     SQL.Add(sqlstr1);
     Open;
     if RecordCount>0 then
     begin
     ShowMessage('输入的书名与作者有重复,请重新输入');
     exit;
     end;
     Close;
     SQL.Clear;
     SQL.Add(sqlstr);
     ExecSQL;
     finally
     free;
     end;
     end;
   
     close;


end;

end.