📄 cx_form.pas
字号:
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -