unit10.pas

花花公子专卖店管理程序

unit Unit10;

interface

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

type
  TF_sfk = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    EditDBEdit2: TDBEdit;
    EditDBEdit4: TDBEdit;
    EditDBEdit5: TDBEdit;
    EditDBEdit6: TDBEdit;
    MemoDBMemo: TDBMemo;
    Label8: TLabel;
    DBEdit1: TDBEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Button2: TButton;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure DBComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  F_sfk: TF_sfk;

implementation
uses unit1, Unit8, Unit14, Unit13, Unit17;
{$R *.DFM}

procedure TF_sfk.Button2Click(Sender: TObject);
begin
custom_window:='c_sfk';
F_rsxz.ShowModal;
end;

procedure TF_sfk.BitBtn1Click(Sender: TObject);
var
  rkd_no,sfk_sql:string;
begin
 rkd_no:=F_sfk.EditDBEdit2.text;
 if DBComboBox1.text='付款' then
    sfk_sql:='select 供应商 as 单位 from 入库单 where 入库单号='+''''+rkd_no+''''
 else sfk_sql:='select 客户名称 as 单位 from 出库单 where 出库单号='+''''+rkd_no+'''';
 with mainform.Q_sfk_kh do
  begin
   close;
   sql.Clear;
   sql.Add(sfk_sql);
   open;
  end;

  if mainform.Q_sfk_kh.Eof=true then
   begin
    application.MessageBox('你输入的单号不存在，请重新输入！','系统警告',MB_ok+MB_Iconstop);
    F_sfk.EditDBEdit2.SetFocus;
   end else
     begin
       mainform.A_sfk.FieldByName('单位').asstring:=mainform.Q_sfk_kh.FieldByName('单位').asstring;
       mainform.A_sfk.Post;
       if custom_window='c_rkd' then
         begin
           mainform.A_rkd.Close;
           mainform.A_rkd.Open;
           mainform.A_rkd.locate('入库单号',rkd_no,[loCaseInsensitive]);
         end;
       if custom_window='c_ckd' then
         begin
           rkd_no:=F_sfk.EditDBEdit2.text;
           mainform.A_ckd.Close;
           mainform.A_ckd.Open;
           mainform.A_ckd.locate('出库单号',rkd_no,[loCaseInsensitive]);
         end;
       close;     
   end;
end;

procedure TF_sfk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.A_sfk.cancel;
end;

procedure TF_sfk.FormShow(Sender: TObject);
begin
mainform.SYS_money.First;
DBComboBox2.Items.Clear;
while mainform.SYS_money.eof=false do
  begin
    DBComboBox2.Items.add(mainform.SYS_money.fields[1].asstring);
    mainform.SYS_money.next;
  end;
mainform.A_sfk.FieldByName('日期').Asstring:=datetostr(now);
end;

procedure TF_sfk.DBComboBox1Change(Sender: TObject);
begin
if DBComboBox1.Text='收款' then
  begin
    DBComboBox1.Color:=clgreen;
  end else
    begin
      if DBComboBox1.Text='付款' then
         begin
           DBComboBox1.Color:=clred;
         end else DBComboBox1.Color:=clwindow;
    end;


end;

procedure TF_sfk.Button1Click(Sender: TObject);
begin
if DBComboBox1.text='收款' then F_cksfk.showmodal;
if DBComboBox1.text='付款' then F_rksfk.showmodal;
end;

end.