cghzrycx.pas

一个仓库管理中的子系统－－采购子系统

unit cghzrycx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Grids, DBGrids,DBTables;
var hzglbselect:string;
type
  TcghzrycxForm = class(TForm)
    zhcxGroup: TGroupBox;
    sqbidCheck: TCheckBox;
    lshCheck: TCheckBox;
    sqrqCheck: TCheckBox;
    bjsjCheck: TCheckBox;
    bjhgsjCheck: TCheckBox;
    cpbhCheck: TCheckBox;
    cpmcCheck: TCheckBox;
    hgfczfCheck: TCheckBox;
    bzrCheck: TCheckBox;
    bzrqCheck: TCheckBox;
    sqsjEdit: TEdit;
    bjsjEdit: TEdit;
    bjhgsjEdit: TEdit;
    rwmcEdit: TEdit;
    cpmcEdit: TEdit;
    bzrqEdit: TEdit;
    lshEdit: TEdit;
    pzrqEdit: TEdit;
    ycdhsjEdit: TEdit;
    yxnxCheck: TCheckBox;
    sqdwCheck: TCheckBox;
    ycdhsjCheck: TCheckBox;
    pzrCheck: TCheckBox;
    pzrqCheck: TCheckBox;
    rwmcCheck: TCheckBox;
    xhggCheck: TCheckBox;
    sjcgcjCheck: TCheckBox;
    shrCheck: TCheckBox;
    shrqCheck: TCheckBox;
    yxnxEdit: TEdit;
    xhggEdit: TEdit;
    sjcgcjEdit: TEdit;
    shrqEdit: TEdit;
    Label1: TLabel;
    cgfsCheck: TCheckBox;
    jhyCheck: TCheckBox;
    jhyEdit: TEdit;
    hgfczfCombo: TComboBox;
    cgfsCombo: TComboBox;
    bjhgsjDate: TDateTimePicker;
    bjsjDate: TDateTimePicker;
    bzrqDate: TDateTimePicker;
    shrqDate: TDateTimePicker;
    pzrqDate: TDateTimePicker;
    ycdhsjDate: TDateTimePicker;
    sqdwCombo: TComboBox;
    bzrCombo: TComboBox;
    shrCombo: TComboBox;
    pzrCombo: TComboBox;
    sqsjDate: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    sqbidedit: TEdit;
    cpbhcombo: TComboBox;
    StatusBar1: TStatusBar;
    procedure sqbidCheckClick(Sender: TObject);
    procedure rwmcCheckClick(Sender: TObject);
    procedure yxnxCheckClick(Sender: TObject);
    procedure lshCheckClick(Sender: TObject);
    procedure cpbhCheckClick(Sender: TObject);
    procedure cpmcCheckClick(Sender: TObject);
    procedure xhggCheckClick(Sender: TObject);
    procedure sqdwCheckClick(Sender: TObject);
    procedure sqrqCheckClick(Sender: TObject);
    procedure hgfczfCheckClick(Sender: TObject);
    procedure sjcgcjCheckClick(Sender: TObject);
    procedure ycdhsjCheckClick(Sender: TObject);
    procedure bjsjCheckClick(Sender: TObject);
    procedure bzrCheckClick(Sender: TObject);
    procedure shrCheckClick(Sender: TObject);
    procedure pzrCheckClick(Sender: TObject);
    procedure bjhgsjCheckClick(Sender: TObject);
    procedure bzrqCheckClick(Sender: TObject);
    procedure shrqCheckClick(Sender: TObject);
    procedure pzrqCheckClick(Sender: TObject);
    procedure cgfsCheckClick(Sender: TObject);
    procedure jhyCheckClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure cpbhcomboDblClick(Sender: TObject);
    procedure sqsjDateCloseUp(Sender: TObject);
    procedure bjsjDateCloseUp(Sender: TObject);
    procedure bjhgsjDateCloseUp(Sender: TObject);
    procedure bzrqDateCloseUp(Sender: TObject);
    procedure shrqDateCloseUp(Sender: TObject);
    procedure ycdhsjDateCloseUp(Sender: TObject);
    procedure pzrqDateCloseUp(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cghzrycxForm: TcghzrycxForm;

implementation

uses Datamodule, sqbinput, cghzbcx, cpxxcxsz;

{$R *.DFM}

procedure TcghzrycxForm.sqbidCheckClick(Sender: TObject);
begin
    if sqbidCheck.Checked then
    sqbidEdit.Enabled:=True
    else
    sqbidEdit.Enabled:=false;
end;

procedure TcghzrycxForm.rwmcCheckClick(Sender: TObject);
begin
    if rwmcCheck.Checked then
    rwmcEdit.Enabled:=True
    else
    rwmcEdit.Enabled:=False;
end;

procedure TcghzrycxForm.yxnxCheckClick(Sender: TObject);
begin
    if yxnxCheck.Checked then
    yxnxEdit.Enabled:=True
    else
    yxnxEdit.Enabled:=False;
end;

procedure TcghzrycxForm.lshCheckClick(Sender: TObject);
begin
    if lshCheck.Checked then
    lshEdit.Enabled:=True
    else
    lshEdit.Enabled:=False;
end;

procedure TcghzrycxForm.cpbhCheckClick(Sender: TObject);
begin
    if cpbhCheck.Checked then
    begin
    cpmccheck.Checked:=true;
    xhggcheck.Checked:=true;
    cpmcedit.Enabled:=true;
    xhggedit.Enabled:=true;
    cpbhCombo.Enabled:=True;
    end
    else
    begin
    cpmccheck.Checked:=False;
    xhggcheck.Checked:=False;
    cpmcedit.Enabled:=False;
    xhggedit.Enabled:=False;
    cpbhCombo.Enabled:=False;
    end;
end;

procedure TcghzrycxForm.cpmcCheckClick(Sender: TObject);
begin
    if cpmcCheck.Checked then
    cpmcEdit.Enabled:=True
    else
    cpmcEdit.Enabled:=False;
end;

procedure TcghzrycxForm.xhggCheckClick(Sender: TObject);
begin
    if xhggCheck.Checked then
    xhggEdit.Enabled:=True
    else
    xhggEdit.Enabled:=False;
end;

procedure TcghzrycxForm.sqdwCheckClick(Sender: TObject);
begin
   if sqdwCheck.Checked then
    sqdwcombo.Enabled:=True
    else
    sqdwcombo.Enabled:=False;
end;

procedure TcghzrycxForm.sqrqCheckClick(Sender: TObject);
begin
   if sqrqCheck.Checked then
   begin
    sqsjEdit.Enabled:=True;
    sqsjDate.Enabled:=True;
   end
   else
   begin
    sqsjEdit.Enabled:=False;
    sqsjDate.Enabled:=False;
   end;
end;

procedure TcghzrycxForm.hgfczfCheckClick(Sender: TObject);
begin
    if hgfczfCheck.Checked then
    hgfczfCombo.Enabled:=True
    else
    hgfczfCombo.Enabled:=False;
end;

procedure TcghzrycxForm.sjcgcjCheckClick(Sender: TObject);
begin
    if sjcgcjCheck.Checked then
    sjcgcjEdit.Enabled:=True
    else
    sjcgcjEdit.Enabled:=False;
end;

procedure TcghzrycxForm.ycdhsjCheckClick(Sender: TObject);
begin
     if ycdhsjCheck.Checked then
   begin
    ycdhsjEdit.Enabled:=True;
    ycdhsjDate.Enabled:=True;
   end
   else
   begin
    ycdhsjEdit.Enabled:=False;
    ycdhsjDate.Enabled:=False;
   end;
end;

procedure TcghzrycxForm.bjsjCheckClick(Sender: TObject);
begin
    if bjsjCheck.Checked then
   begin
    bjsjEdit.Enabled:=True;
    bjsjDate.Enabled:=True;
   end
   else
   begin
    bjsjEdit.Enabled:=False;
    bjsjDate.Enabled:=False;
   end;
end;

procedure TcghzrycxForm.bzrCheckClick(Sender: TObject);
begin
     if bzrCheck.Checked then
    bzrCombo.Enabled:=True
    else
    bzrcombo.Enabled:=False;
end;

procedure TcghzrycxForm.shrCheckClick(Sender: TObject);
begin
     if shrCheck.Checked then
    shrCombo.Enabled:=True
    else
    shrCombo.Enabled:=False;
end;

procedure TcghzrycxForm.pzrCheckClick(Sender: TObject);
begin
     if pzrCheck.Checked then
    pzrCombo.Enabled:=True
    else
    pzrCombo.Enabled:=False;
end;

procedure TcghzrycxForm.bjhgsjCheckClick(Sender: TObject);
begin
  if bjhgsjCheck.Checked then