cw_ysbb.~pas

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

unit cw_ysbb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;

type
  TForm14 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Q_dzkd: TQuery;
    DS_dzkd: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    s_xm: TEdit;
    Label3: TLabel;
    s_bm: TEdit;
    Label4: TLabel;
    s_dh: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

uses cw_ysdy, cw_main;

{$R *.dfm}

procedure TForm14.Button1Click(Sender: TObject);
begin
   Q_dzkd.Active:=False;
   Q_dzkd.SQL.Clear;
   Q_dzkd.SQL.Add('select * from H_dzkd where lb=''款待'' and xm='''+s_xm.Text+'''');
   Q_dzkd.Active:=True;
   s_xm.Clear;
end;

procedure TForm14.FormShow(Sender: TObject);
begin
   Q_dzkd.Active:=False;
   Q_dzkd.SQL.Clear;
   Q_dzkd.SQL.Add('select * from H_dzkd where lb=''款待''');
   Q_dzkd.Active:=True;

end;

procedure TForm14.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm14.Button3Click(Sender: TObject);
begin
   Q_dzkd.Active:=False;
   Q_dzkd.SQL.Clear;
   Q_dzkd.SQL.Add('select * from H_dzkd where lb=''款待'' and bm='''+s_bm.Text+'''');
   Q_dzkd.Active:=True;
   s_bm.Clear;
end;

procedure TForm14.Button4Click(Sender: TObject);
begin
   Q_dzkd.Active:=False;
   Q_dzkd.SQL.Clear;
   Q_dzkd.SQL.Add('select * from H_dzkd where lb=''款待'' and AccountNo='''+s_dh.Text+'''');
   Q_dzkd.Active:=True;
   s_dh.Clear;
end;

procedure TForm14.Button6Click(Sender: TObject);
begin
   Q_dzkd.Active:=False;
   Q_dzkd.SQL.Clear;
   Q_dzkd.SQL.Add('select * from H_dzkd where lb=''款待''');
   Q_dzkd.Active:=True;

end;

procedure TForm14.Button2Click(Sender: TObject);
  var aa:string;
begin
  aa:=Q_dzkd.SQL.GetText;
  form15.Q_ys.Active:=False;
  form15.Q_ys.SQL.Clear;
  form15.Q_ys.SQL.Add(aa);
  form15.Q_ys.Active:=True;
  form15.bbr.Caption:=form1.operator.Caption;
  form15.QuickRep1.Preview;
end;

end.