?? cx_form.pas

?? 圖書管理系統vb+sql
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
unit CX_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, TFlatGroupBoxUnit, TFlatCheckBoxUnit,
  TFlatRadioButtonUnit, TFlatButtonUnit, TFlatComboBoxUnit, Grids, DBGrids,
  DB, TFlatEditUnit,ADODB;

type
  TCX_F = class(TForm)
    XS_PC: TPageControl;
    TSXX_TS: TTabSheet;
    YHXX_TS: TTabSheet;
    JYQK_TS: TTabSheet;
    Close_Btn: TButton;
    FlatGroupBox1: TFlatGroupBox;
    ASH_FRBtn: TFlatRadioButton;
    ASM_FRBtn: TFlatRadioButton;
    AZZ_FRBtn: TFlatRadioButton;
    ACBS_FRBtn: TFlatRadioButton;
    ALB_FRBtn: TFlatRadioButton;
    MHCX_FCB: TFlatCheckBox;
    FlatGroupBox2: TFlatGroupBox;
    Label1: TLabel;
    KSCX_FBtn: TFlatButton;
    GJZ_CB: TComboBox;
    FlatGroupBox3: TFlatGroupBox;
    TSJG_DG: TDBGrid;
    TSJG_DS: TDataSource;
    TS_Lable: TLabel;
    FlatGroupBox4: TFlatGroupBox;
    AJSZH_FRBtn: TFlatRadioButton;
    AXM_FRBtn: TFlatRadioButton;
    YHMHCX_FCB: TFlatCheckBox;
    FlatGroupBox5: TFlatGroupBox;
    Label2: TLabel;
    YHKSCX_FBtn: TFlatButton;
    YHGJZ_CB: TComboBox;
    FlatGroupBox6: TFlatGroupBox;
    YH_DG: TDBGrid;
    YH_Lable: TLabel;
    YH_DS: TDataSource;
    FlatGroupBox7: TFlatGroupBox;
    JYJSZ_FRBtn: TFlatRadioButton;
    JYXM_FRBtn: TFlatRadioButton;
    JYMHCX_FCB: TFlatCheckBox;
    FlatGroupBox8: TFlatGroupBox;
    Label3: TLabel;
    JYKS_FBtn: TFlatButton;
    FlatGroupBox9: TFlatGroupBox;
    JY_DG: TDBGrid;
    JY_Lable: TLabel;
    JYYDQ_FRBtn: TFlatRadioButton;
    JYGJZ_FE: TFlatEdit;
    JY_DS: TDataSource;
    procedure FormDestroy(Sender: TObject);
    procedure Close_BtnClick(Sender: TObject);
    procedure ASH_FRBtnClick(Sender: TObject);
    procedure ALB_FRBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure KSCX_FBtnClick(Sender: TObject);
    procedure MHCX_FCBClick(Sender: TObject);
    procedure AJSZH_FRBtnClick(Sender: TObject);
    procedure YHKSCX_FBtnClick(Sender: TObject);
    procedure YHMHCX_FCBClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure JYKS_FBtnClick(Sender: TObject);
    procedure JYYDQ_FRBtnClick(Sender: TObject);
    procedure JYJSZ_FRBtnClick(Sender: TObject);
    procedure JYXM_FRBtnClick(Sender: TObject);
    procedure AXM_FRBtnClick(Sender: TObject);
    procedure ASM_FRBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CX_F: TCX_F;

implementation

uses  Share_Unit;

{$R *.dfm}

var
  TSXX_Q,YHXX_Q,JYXX_Q:TADOQuery;
//******************************************************************************
procedure TCX_F.FormDestroy(Sender: TObject);  
begin
  FreeAndNil(TSXX_Q);
  FreeAndNil(YHXX_Q);
  FreeAndNil(JYXX_Q);
  CX_F:=nil;
end;
//******************************************************************************
procedure TCX_F.Close_BtnClick(Sender: TObject);
begin
  close;
end;
//******************************************************************************
procedure TCX_F.ASH_FRBtnClick(Sender: TObject);   //按書號
begin
  GJZ_CB.Text:='';
  GJZ_CB.MaxLength:=10;
  TSXX_Q.Close;
  TS_Lable.Caption:='共有 0 條記錄';
  GJZ_CB.Style:=csSimple;
end;
//******************************************************************************
procedure TCX_F.ASM_FRBtnClick(Sender: TObject);   //按書名，作者，出版社
begin
  GJZ_CB.Text:='';
  GJZ_CB.MaxLength:=0;
  TSXX_Q.Close;
  TS_Lable.Caption:='共有 0 條記錄';
  GJZ_CB.Style:=csSimple;
end;
//******************************************************************************
procedure TCX_F.ALB_FRBtnClick(Sender: TObject);   //按類別
var
  TSLB_T:TADOTable;
begin
  GJZ_CB.Text:='';
  TSXX_Q.Close;
  TS_Lable.Caption:='共有 0 條記錄';
  GJZ_CB.Style:=csDropDownList;

  TSLB_T:=TADOTable.Create(nil);
  TSLB_T.Connection:=Connect;
  TSLB_T.TableName:='圖書類別';
  TSLB_T.Open;
  GJZ_CB.Items.Clear;
  while not TSLB_T.Eof do
    begin
      GJZ_CB.Items.Add(TSLB_T.FieldValues['類名']);
      TSLB_T.Next;
    end;
  GJZ_CB.ItemIndex:=0;
  FreeAndNil(TSLB_T);
end;
//******************************************************************************
procedure TCX_F.FormCreate(Sender: TObject);  
begin
  TSXX_Q:=TADOQuery.Create(nil);
  TSXX_Q.Connection:=Connect;

  YHXX_Q:=TADOQuery.Create(nil);
  YHXX_Q.Connection:=Connect;

  JYXX_Q:=TADOQuery.Create(nil);
  JYXX_Q.Connection:=Connect;

end;
//******************************************************************************
procedure TCX_F.KSCX_FBtnClick(Sender: TObject);     //開始查詢
begin
  if ASH_FRBtn.Checked then                  //按書號
    if MHCX_FCB.Checked then
      begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 圖書編號,書名,作者,類名,出版社,定價 From 圖書信息 A,圖書類別 B');
        TSXX_Q.SQL.Add('Where (A.圖書編號 Like :圖書編號) and A.類別=B.類別');
        TSXX_Q.Parameters.ParamByName('圖書編號').Value:='%'+GJZ_CB.Text+'%';

        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='圖書編號';
        TSJG_DG.Columns[1].FieldName:='書名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='類名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定價';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 條記錄',[TSXX_Q.RecordCount]);
      end
      else begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 圖書編號,書名,作者,類名,出版社,定價 From 圖書信息 A,圖書類別 B');
        TSXX_Q.SQL.Add('Where (A.圖書編號 = :圖書編號) and A.類別=B.類別');
        TSXX_Q.Parameters.ParamByName('圖書編號').Value:=GJZ_CB.Text;
        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='圖書編號';
        TSJG_DG.Columns[1].FieldName:='書名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='類名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定價';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 條記錄',[TSXX_Q.RecordCount]);
      end;

  if ASM_FRBtn.Checked then               //按書名
    if MHCX_FCB.Checked then
      begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 圖書編號,書名,作者,類名,出版社,定價 From 圖書信息 A,圖書類別 B');
        TSXX_Q.SQL.Add('Where (A.書名 Like :書名) and A.類別=B.類別');
        TSXX_Q.Parameters.ParamByName('書名').Value:='%'+GJZ_CB.Text+'%';

        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='圖書編號';
        TSJG_DG.Columns[1].FieldName:='書名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='類名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定價';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 條記錄',[TSXX_Q.RecordCount]);
      end
      else begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 圖書編號,書名,作者,類名,出版社,定價 From 圖書信息 A,圖書類別 B');
        TSXX_Q.SQL.Add('Where (A.書名 = :書名) and A.類別=B.類別');
        TSXX_Q.Parameters.ParamByName('書名').Value:=GJZ_CB.Text;
        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='圖書編號';
        TSJG_DG.Columns[1].FieldName:='書名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='類名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定價';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 條記錄',[TSXX_Q.RecordCount]);
      end;

  if AZZ_FRBtn.Checked then               //按作者
    if MHCX_FCB.Checked then
      begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 圖書編號,書名,作者,類名,出版社,定價 From 圖書信息 A,圖書類別 B');
        TSXX_Q.SQL.Add('Where (A.作者 Like :作者) and A.類別=B.類別');
        TSXX_Q.Parameters.ParamByName('作者').Value:='%'+GJZ_CB.Text+'%';

        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='圖書編號';
        TSJG_DG.Columns[1].FieldName:='書名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='類名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定價';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 條記錄',[TSXX_Q.RecordCount]);
      end
      else begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 圖書編號,書名,作者,類名,出版社,定價 From 圖書信息 A,圖書類別 B');
        TSXX_Q.SQL.Add('Where (A.作者 = :作者) and A.類別=B.類別');
        TSXX_Q.Parameters.ParamByName('作者').Value:=GJZ_CB.Text;
        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='圖書編號';
        TSJG_DG.Columns[1].FieldName:='書名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='類名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定價';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 條記錄',[TSXX_Q.RecordCount]);
      end;


  if ACBS_FRBtn.Checked then               //按出版社
    if MHCX_FCB.Checked then
      begin
        TSXX_Q.Close;
        TSXX_Q.SQL.Clear;
        TSXX_Q.SQL.Add('Select 圖書編號,書名,作者,類名,出版社,定價 From 圖書信息 A,圖書類別 B');
        TSXX_Q.SQL.Add('Where (A.出版社 Like :出版社) and A.類別=B.類別');
        TSXX_Q.Parameters.ParamByName('出版社').Value:='%'+GJZ_CB.Text+'%';

        TSJG_DS.DataSet:=TSXX_Q;
        TSJG_DG.Columns[0].FieldName:='圖書編號';
        TSJG_DG.Columns[1].FieldName:='書名';
        TSJG_DG.Columns[2].FieldName:='作者';
        TSJG_DG.Columns[3].FieldName:='類名';
        TSJG_DG.Columns[4].FieldName:='出版社';
        TSJG_DG.Columns[5].FieldName:='定價';
        TSXX_Q.Open;
        TS_Lable.Caption:=Format('共 %d 條記錄',[TSXX_Q.RecordCount]);
      end
      else begin
        TSXX_Q.Close;
12 下一頁
?? 文件大小 1045 K
?? 上傳用戶 zhaoyanguangaaa
?? 所屬分類教育系統應用
??? 相關標簽

#sql #vb #圖書管理
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? cx_form.pas

?? 快捷鍵說明
