unit8.~pas

专卖店进销存系统 delphi7开发 access数据库

unit Unit8;

interface

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

type
  TF_rsxz = class(TForm)
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DBEdit1: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_rsxz: TF_rsxz;

implementation
uses unit1, Unit9;
{$R *.dfm}

procedure TF_rsxz.BitBtn1Click(Sender: TObject);
begin
if custom_window='c_rkd' then mainform.A_rkd.FieldByName('操作员').asstring:=F_rsxz.DBEdit1.text;
if custom_window='c_sfk' then mainform.A_sfk.FieldByName('操作员').asstring:=F_rsxz.DBEdit1.text;
if custom_window='c_ckd' then mainform.A_ckd.FieldByName('操作员').asstring:=F_rsxz.DBEdit1.text;
close;
end;

procedure TF_rsxz.BitBtn2Click(Sender: TObject);
begin
mainform.A_rs.Append;
F_rs.showmodal;
end;

procedure TF_rsxz.BitBtn3Click(Sender: TObject);
begin
mainform.A_rs.Edit;
F_rs.showmodal;
end;

end.