unit6.pas

花花公子专卖店管理程序

unit Unit6;

interface

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

type
  TF_khksxz = class(TForm)
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    DBEdit1: TDBEdit;
    Panel3: TPanel;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    EditDBEdit: TDBEdit;
    EditDBEdit3: TDBEdit;
    EditDBEdit4: TDBEdit;
    EditDBEdit5: TDBEdit;
    EditDBEdit6: TDBEdit;
    EditDBEdit7: TDBEdit;
    EditDBEdit8: TDBEdit;
    EditDBEdit9: TDBEdit;
    EditDBEdit10: TDBEdit;
    MemoDBMemo: TDBMemo;
    DBComboBox1: TDBComboBox;
    ComboBox1: TComboBox;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_khksxz: TF_khksxz;

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

procedure TF_khksxz.BitBtn2Click(Sender: TObject);
begin
mainform.A_khks.Append;
F_khks.showmodal;
end;

procedure TF_khksxz.BitBtn3Click(Sender: TObject);
begin
mainform.A_khks.edit;
F_khks.showmodal;  
end;

procedure TF_khksxz.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure TF_khksxz.BitBtn1Click(Sender: TObject);
begin
if custom_window='c_rkd' then mainform.A_rkd.FieldByName('供应商').asstring:=F_khksxz.DBEdit1.text;
if custom_window='c_ckd' then mainform.A_ckd.FieldByName('客户名称').asstring:=F_khksxz.DBEdit1.text;
close;
end;

procedure TF_khksxz.ComboBox1Change(Sender: TObject);
var
 Q_chr:string;
begin
Q_chr:='select * from 客户客商库';
if F_khksxz.ComboBox1.text<>'全部' then Q_chr:=Q_chr+' where 客户性质='+''''+F_khksxz.ComboBox1.text+'''';
with mainform.A_khks do
  begin
    close;
    sql.Clear;
    sql.Add(Q_chr);
    open;
  end;
end;

procedure TF_khksxz.BitBtn4Click(Sender: TObject);
begin
 if application.MessageBox('请确认要删除本客户客商信息吗？','系统信息',MB_YESNO+MB_Iconquestion)=IDyes then
   mainform.A_khks.delete;
end;

end.