cw_yfbb.pas

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

unit cw_yfbb;

interface

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

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

var
  Form16: TForm16;

implementation

uses cw_yfdy, cw_main;

{$R *.dfm}

procedure TForm16.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 TForm16.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 TForm16.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 TForm16.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 TForm16.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 TForm16.Button5Click(Sender: TObject);
begin
 close;
end;

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

end;

end.