bookorderform.~pas

图书管理系统,使用Delphi开发,数据库为Microsoft SQL Server 2

unit BookOrderForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ADODB, ImgList, DB, ExtCtrls, StdCtrls, Buttons,
  ComCtrls, ToolWin, Grids, DBGrids, DBCtrls, Mask;

type
  TBookOrder = class(TParent)
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBComboBox1: TDBComboBox;
    ADOCommand1: TADOCommand;
    BitBtn2: TBitBtn;
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);
    procedure DBEdit6KeyPress(Sender: TObject; var key: char);
    procedure DBEdit7KeyPress(Sender: TObject; var key: char);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BookOrder: TBookOrder;

implementation

{$R *.dfm}
//
uses
ChooseBook,Unit1,DataMod;

procedure TBookOrder.BitBtn2Click(Sender: TObject);
var
newform:Tchoose;
begin
  inherited;
  newform:=Tchoose.Create(application);
  newform.Show;

end;


//
procedure TBookOrder.FormActivate(Sender: TObject);
begin
//  if panel2.Enabled=true then
    dbedit2.Text:=main.storestr;
end;


procedure TBookOrder.DBEdit2Change(Sender: TObject);
begin
  inherited;
//
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select BookInfo_BookName from BookInfo where BookInfo_No='''+dbedit2.Text+'''');
adoquery1.Open;
edit3.Text:=adoquery1.FieldByName('BookInfo_BookName').AsString;
end;

procedure TBookOrder.BitBtn3Click(Sender: TObject);
begin
  inherited;
  
  //
//  adocommand1.CommandText:='exec sf_BookOrder_IsCheckAccept';
//  adocommand1.Execute;
  //
  adotable1.Active:=false;
  adotable1.Active:=true;
end;

procedure TBookOrder.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;
  dbgrid1.Columns[0].Width:=80;
  dbgrid1.Columns[1].Width:=80;
  dbgrid1.Columns[2].Width:=80;
  dbgrid1.Columns[3].Width:=96;
  dbgrid1.Columns[4].Width:=80;
  dbgrid1.Columns[5].Width:=80;
  dbgrid1.Columns[6].Width:=96;
  dbgrid1.Columns[7].Width:=80;
end;

procedure TBookOrder.ToolButton5Click(Sender: TObject);
var
maxnum:integer;
newnum:string;
begin
  inherited;
  //
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select max(BookOrder_No) max from BookOrder');
  adoquery1.Open;
  if adoquery1.fieldbyname('max').asstring='' then
  maxnum:=0
  else
  maxnum:=adoquery1.FieldByName('max').AsInteger;
  maxnum:=maxnum+1;
  newnum:=inttostr(maxnum);
  if length(newnum)=1 then
    dbedit1.Text:='000000'+newnum;
  if length(newnum)=2 then
    dbedit1.Text:='00000'+newnum;
  if length(newnum)=3 then
    dbedit1.Text:='0000'+newnum;
  if length(newnum)=4 then
    dbedit1.Text:='000'+newnum;
  if length(newnum)=5 then
    dbedit1.Text:='00'+newnum;
  if length(newnum)=6 then
    dbedit1.Text:='0'+newnum;
    //
  dbedit8.Text:=datetostr(date)+' '+timetostr(time);
  //
  dbcombobox1.SelText:='False';
end;


//
procedure TBookOrder.DBEdit6KeyPress(Sender: TObject; var key: char);
begin
  inherited;
  //
  if (key>=#30)and(key<=#39) then
    dbedit6.Text:=dbedit6.Text+key;
end;


//
procedure TBookOrder.DBEdit7KeyPress(Sender: TObject; var key: char);
begin
  inherited;
  //
  if (key>=#30)and(key<=#39) then
    dbedit7.Text:=dbedit7.Text+key;
end;
procedure TBookOrder.FormCreate(Sender: TObject);
begin
  inherited;
panel1.Enabled:=true;
end;

procedure TBookOrder.BitBtn1Click(Sender: TObject);
var
condition:integer;
begin
  inherited;
  condition:=7;
  if label3.Visible=false then
    condition:=(condition)and(3);
  if label4.Visible=false then
    condition:=(condition)and(5);
  if label5.Visible=false then
    condition:=(condition)and(6);
(*
  if condition=7 then
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add('where(BookInfo_BarCode like ''%'+edit1.Text+'%'')');
      adoquery1.SQL.Add('and(BookInfo_No like ''%'+edit2.Text+'%'')');
      adoquery1.SQL.Add('and(BookInfo_BookName like ''%'+edit3.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;
  *)
  if condition=6 then //
    begin
      adoquery1.Close;
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add('where(BookOrder_No like ''%'+edit1.Text+'%'')');
      adoquery1.SQL.Add('and(BookInfo_No like''%'+edit2.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;

  if condition=4 then //
    begin
      adoquery1.Close;
      adoquery1.SQL.Add('select * from '+adotable1.TableName);
      adoquery1.SQL.Add(' where(BookOrder_No like ''%'+edit1.Text+'%'')');
      adoquery1.Open;
      //
      adotable1.Clone(adoquery1,ltUnspecified);
    end;
end;

end.