unit18.~pas

进销存管理系统jxc

unit Unit18;

interface

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

type
  TF_ckd = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    EditDBEdit: TDBEdit;
    EditDBEdit3: TDBEdit;
    EditDBEdit5: TDBEdit;
    EditDBEdit7: TDBEdit;
    MemoDBMemo: TDBMemo;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBComboBox1: TDBComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  F_ckd: TF_ckd;

implementation
uses unit1, Unit6, Unit8;
{$R *.DFM}

procedure TF_ckd.BitBtn1Click(Sender: TObject);
begin
if (F_ckd.EditDBEdit3.text='') or (F_ckd.EditDBEdit5.text='') then
  begin
   application.MessageBox('客户名称或出库日期不能为空！','系统警告',MB_ok+MB_Iconstop);
   F_ckd.EditDBEdit3.SetFocus;
  end else
  begin
   mainform.A_ckd.Post;
   close;
  end;
end;

procedure TF_ckd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mainform.A_ckd.Cancel;
end;

procedure TF_ckd.Button1Click(Sender: TObject);
begin
F_khksxz.DBEdit1.Visible:=true;
F_khksxz.BitBtn1.Visible:=true;
custom_window:='c_ckd';
F_khksxz.showmodal;
end;

procedure TF_ckd.Button2Click(Sender: TObject);
begin
custom_window:='c_ckd';
F_rsxz.showmodal;
end;

procedure TF_ckd.FormShow(Sender: TObject);
begin
mainform.sys_out.First;
DBComboBox1.Items.Clear;
while mainform.sys_out.eof=false do
  begin
    DBComboBox1.Items.add(mainform.sys_out.Fields[1].asstring);
    mainform.sys_out.next;
  end;

end;

end.