unit3.pas

这是我给一单位开以的支票打印系统,开发环境为delphi,控件为fastreport

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBComboBox1: TDBComboBox;
    DBGrid1: TDBGrid;
    DBNavigator2: TDBNavigator;
    dbmb: TDBComboBox;
    AD_bank: TADOTable;
    procedure DBGrid1ColExit(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure AD_bankAfterInsert(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure AD_bankBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation
uses UNIT2;
{$R *.dfm}

procedure TForm3.DBGrid1ColExit(Sender: TObject);
begin
    if DBGrid1.SelectedField.FieldName=dbmb.DataField then
      dbmb.Visible:=false;
end;

procedure TForm3.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
    if (gdFocused in State) then
  begin
     if (Column.Field.FieldName = dbmb.DataField ) then
     begin
        dbmb.Left := Rect.Left + DBGrid1.Left;
        dbmb.Top := Rect.Top + DBGrid1.top;
        dbmb.Width := Rect.Right - Rect.Left;
        dbmb.Height := Rect.Bottom - Rect.Top;
        dbmb.Visible := True;
     end;
  end;
end;

procedure TForm3.AD_bankAfterInsert(DataSet: TDataSet);
var i:integer;
begin
    with data.BANCK do
    begin
        data.BANCK.close;
        data.BANCK.SQL.Clear;
        data.BANCK.SQL.Add('select * from bank ');
        data.BANCK.Open ;
        i:=data.BANCK.RecordCount;
        ad_bank.Edit ;
        ad_bank.FieldByName('bank_dh').Value:=i+1;
    end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
    ad_bank.Open ;
    ad_bank.Last ;
end;

procedure TForm3.AD_bankBeforePost(DataSet: TDataSet);
begin
    if DBEdit1.Text=''then
     begin
       MessageBox(self.Handle, '请输入银行名称和帐号!', '提示', mb_IconInformation + mb_Ok);
       Abort;
     end;
end;

end.