zero.pas

药品进销存管理系统(Delphi版),适合中小企业管理

unit zero;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type
  TFrmzero = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    SpeedButton3: TSpeedButton;
    wpbm_Edit: TEdit;
    pm_Edit: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Edit_ghs: TEdit;
    ListBox1: TListBox;
    DBGrid1: TDBGrid;
    Query_kc: TQuery;
    DataSource_kc: TDataSource;
    Query_ckxx: TQuery;
    Database: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmzero: TFrmzero;
  table_name:array[0..25] of string; //存放选择的仓库的表名cka---ckf

implementation

uses main, ghs;

{$R *.DFM}

procedure TFrmzero.FormCreate(Sender: TObject);
  var i:integer;
begin
 if Frmmain.right='01' then bitbtn1.Enabled:=false;
 i:=0;
 Query_ckxx.close;
 Query_ckxx.sql.Clear;
 Query_ckxx.sql.Add('select * from ckxxb');
 Query_ckxx.open;
 Query_ckxx.First;
 while not Query_ckxx.Eof do
   begin
     listbox1.Items.Add(Query_ckxx.fieldbyname('ck_mc').asstring);
     table_name[i]:=Query_ckxx.fieldbyName('ck_bh').asString;
     inc(i);
     Query_ckxx.Next;
   end;
 listbox1.ItemIndex:=0;
 listbox1click(self);
end;

procedure TFrmzero.ListBox1Click(Sender: TObject);
begin
   Query_kc.close;
   Query_kc.UnPrepare;
   Query_kc.sql.Clear;
   Query_kc.sql.Add('select jhrq,pm,cd,dw,gg,ycs,jj,dj,ph,ghs_mc,lb,ck_bh,wp_bm from zero');
   Query_kc.sql.Add(' where ck_bh='''+table_name[Listbox1.itemindex]+'''');
   Query_kc.sql.Add(' order by pm');
   Query_kc.Prepare;
   Query_kc.open;
   Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
   Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
   Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
   Query_kc.FieldByName('gg').DisplayLabel:='规格';
   Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
   Query_kc.FieldByName('ycs').DisplayLabel:='进货数';
   Query_kc.FieldByName('dw').DisplayLabel:='单位';
   Query_kc.FieldByName('jj').DisplayLabel:='进价';
   Query_kc.FieldByName('lb').DisplayLabel:='类别';
   Query_kc.FieldByName('dj').DisplayLabel:='售价';
   Query_kc.FieldByName('ph').DisplayLabel:='批号';
   Query_kc.FieldByName('cd').DisplayLabel:='产地';
   Query_kc.FieldByName('ghs_mc').DisplayLabel:='供货商名称';
end;

procedure TFrmzero.BitBtn1Click(Sender: TObject);
begin
  Query_kc.Delete;
end;

procedure TFrmzero.BitBtn3Click(Sender: TObject);
begin
  Query_kc.close;
  Query_kc.UnPrepare;
  Query_kc.sql.Clear;
  Query_kc.sql.Add('select jhrq,pm,cd,dw,gg,ycs,jj,dj,ph,ghs_mc,lb,ck_bh,wp_bm from zero');
  Query_kc.sql.Add(' where ck_bh='''+table_name[Listbox1.itemindex]+'''');
  if wpbm_edit.Text<>'' then
    Query_kc.sql.Add(' and wp_bm like'+''''+wpbm_edit.Text+'%'+'''');
  if pm_edit.Text<>'' then
    Query_kc.sql.Add(' and pm like'+''''+'%'+pm_edit.Text+'%'+'''');
  if edit_ghs.Text<>'' then
    Query_kc.sql.Add(' and ghs_mc like'+''''+'%'+edit_ghs.Text+'%'+'''');
  Query_kc.sql.Add(' order by pm');
  Query_kc.Prepare;
  Query_kc.open;
  Query_kc.FieldByName('ck_bh').DisplayLabel:='仓库编号';
  Query_kc.FieldByName('wp_bm').DisplayLabel:='物品编码';
  Query_kc.FieldByName('pm').DisplayLabel:='物品名称';
  Query_kc.FieldByName('gg').DisplayLabel:='规格';
  Query_kc.FieldByName('jhrq').DisplayLabel:='进货日期';
  Query_kc.FieldByName('dw').DisplayLabel:='单位';
  Query_kc.FieldByName('ycs').DisplayLabel:='进货数';
  Query_kc.FieldByName('jj').DisplayLabel:='进价';
  Query_kc.FieldByName('lb').DisplayLabel:='类别';
  Query_kc.FieldByName('dj').DisplayLabel:='售价';
  Query_kc.FieldByName('ph').DisplayLabel:='批号';
  Query_kc.FieldByName('cd').DisplayLabel:='产地';
  Query_kc.FieldByName('ghs_mc').DisplayLabel:='供货商名称';
end;

procedure TFrmzero.SpeedButton3Click(Sender: TObject);
begin
  Frmghs:=TFrmghs.create(Self);
  Frmmain.pubedit:=Edit_ghs;
  Frmghs.ShowModal;
end;

procedure TFrmzero.BitBtn2Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TFrmzero.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

end.