unitck.~pas

小型仓库管理系统

unit UnitCK;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons;

type
  TfmCK = class(TForm)
    Image1: TImage;
    comb1: TComboBox;
    Label1: TLabel;
    edt4: TEdit;
    edt5: TEdit;
    SpeedButton2: TSpeedButton;
    RadioGroup1: TRadioGroup;
    rbtn1: TRadioButton;
    rbtn2: TRadioButton;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edt3: TEdit;
    edt2: TEdit;
    edt1: TEdit;
    btn1: TBitBtn;
    cb1: TCheckBox;
    cb2: TCheckBox;
    btn2: TBitBtn;
    procedure rbtn1Click(Sender: TObject);
    procedure rbtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmCK: TfmCK;

implementation

uses UnitDm, UnitMain;

{$R *.dfm}

procedure TfmCK.rbtn1Click(Sender: TObject);
begin
  if rbtn1.Checked=true then
     begin
       edt1.Enabled:=true;
       edt2.Enabled:=true;
       edt3.Enabled:=true;
       edt4.Enabled:=false;
       edt5.Enabled:=false;
     end;
end;

procedure TfmCK.rbtn2Click(Sender: TObject);
begin
  if rbtn2.Checked=true then
     begin
       cb1.Enabled:=true;
       cb2.Enabled:=true;
       edt1.Enabled:=false;
       edt2.Enabled:=false;
       edt3.Enabled:=false;
       edt4.Enabled:=true;
       edt5.Enabled:=true;
     end;
end;

procedure TfmCK.FormActivate(Sender: TObject);
begin
  comb1.Items.Clear;
  frDbm.qryG.Close;
  frDbm.qryG.SQL.Clear;
  frDbm.qryG.SQL.Text:='select * from t_store ';
  frDbm.qryG.Open;
  while not frDbm.qryG.Eof do
  begin
    comb1.Items.Add(frDbm.qryG.Fields[0].asstring);
    frDbm.qryG.Next;
  end;
end;

procedure TfmCK.btn1Click(Sender: TObject);
var s1,s2,s3,s4,s5,s6:string;
begin
  s1:=trim(edt1.Text);
  s2:=trim(edt2.Text);
  s3:=trim(edt3.Text);
  s4:=trim(edt4.Text);
  s5:=trim(edt5.Text);
  s6:=trim(comb1.Text);
  if rbtn1.Checked=true then
     begin
       if s1<>'' then
          begin
            frDbm.ComCK.CommandText:='insert into t_store values('''+s1+''','''+s2+''','''+s3+''')';
            frDbm.ComCK.Execute;
            showmessage('新仓库信息录入成功！');
          end
       else showmessage('请输入要增添的仓库号！');
     end;
  if rbtn2.Checked=true  then
     begin
       if (cb1.Checked=true) and (cb2.Checked=true) then
          begin
            if s6<>''then
              begin
                if (s4<>'') and (s5<>'') then
                   begin
                     frDbm.ComCK.CommandText:='update t_store set name='''
                     +s4+''',tel='''+s5+''''+'where cno='''+s6+'''';
                     frDbm.ComCK.Execute;
                     showmessage('修改成功！');
                   end
                else showmessage('请输入完整的变更信息！');
              end
            else showmessage('请选择仓库编号！');
          end;

        if (cb1.Checked=true) and (cb2.Checked=false) then
          begin
            if s6<>''then
              begin
                if (s4<>'')  then
                   begin
                     frDbm.ComCK.CommandText:='update t_store set name='''
                     +s4+''''+'where cno='''+s6+'''';
                     frDbm.ComCK.Execute;
                     showmessage('修改成功！');
                   end
                else showmessage('请输入变更后的姓名！');
              end
            else showmessage('请选择仓库编号！');
          end;

        if (cb1.Checked=false) and (cb2.Checked=true) then
          begin
            if s6<>''then
              begin
                if (s5<>'')  then
                   begin
                     frDbm.ComCK.CommandText:='update t_store set tel='''
                     +s5+''''+'where cno='''+s6+'''';
                     frDbm.ComCK.Execute;
                     showmessage('修改成功！');
                   end
                else showmessage('请输入变更后的仓库电话！');
              end
            else showmessage('请选择仓库编号！');
          end;

        if (cb1.Checked=false) and (cb2.Checked=false) then
           showmessage('请选择要变更的内容！');
     end;
end;

procedure TfmCK.SpeedButton2Click(Sender: TObject);
begin
  fmMain.show;
  fmCK.Close;
end;

procedure TfmCK.btn2Click(Sender: TObject);
begin
  edt1.Text:='';
  edt2.Text:='';
  edt3.Text:='';
  edt4.Text:='';
  edt5.Text:='';
  comb1.Text:='';

  comb1.Items.Clear;
  frDbm.qryG.Close;
  frDbm.qryG.SQL.Clear;
  frDbm.qryG.SQL.Text:='select * from t_store ';
  frDbm.qryG.Open;
  while not frDbm.qryG.Eof do
  begin
    comb1.Items.Add(frDbm.qryG.Fields[0].asstring);
    frDbm.qryG.Next;
  end;
end;

end.