kcqkunt.pas

商品销售系统完全的功能SQL和JAVA

unit kcqkunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, StdCtrls, Buttons, DB, Printers,ComCtrls;

type
  Tkcqkcxfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    Edit5: TEdit;
    UpDown1: TUpDown;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label4: TLabel;
    Edit2: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure ComboBox1Enter(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure Edit5Enter(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kcqkcxfrm: Tkcqkcxfrm;

implementation
    uses data,maind;
{$R *.dfm}

procedure Tkcqkcxfrm.FormActivate(Sender: TObject);
begin
label2.Caption:=formatdatetime('yyyy年mm月dd日',date);
edit1.Text:='';
edit2.Text:='';
dataman.dcQuery.Active:=false;
end;

procedure Tkcqkcxfrm.BitBtn1Click(Sender: TObject);
begin
  with dataman.dcQuery do
   begin
     close;
     sql.Clear;
     sql.Add('select top '+trim(edit5.Text)+' 货物条形码,库存数量 from kc ');
     if combobox1.Text='库存从多到少' then
       sql.Add('order by 库存数量 DESC')
     else
       sql.Add('order by 库存数量 ASC');
     open;
    edit2.Text:='0';
    First;
   while not Eof do
    begin
      edit2.Text:=inttostr(Fields[1].value+strtoint(trim(edit2.Text)));
      Next;
    end;
    end;
    edit2.Text:=edit2.Text+'件';
end;

procedure Tkcqkcxfrm.BitBtn2Click(Sender: TObject);
begin
   with  dataman.dcQuery do
     begin
       close;
       sql.Clear;
       sql.Add('select 货物条形码,库存数量 from kc where 货物条形码='''+edit1.text+'''');
       open;
    edit2.Text:='0';
    First;
   while not Eof do
    begin
      edit2.Text:=inttostr(Fields[1].value+strtoint(trim(edit2.Text)));
      Next;
    end;
    end;
    edit2.Text:=edit2.Text+'件';
end;

procedure Tkcqkcxfrm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Tkcqkcxfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
kcqkcxfrm:=nil;
kcqkcxfrm.Free;
end;

procedure Tkcqkcxfrm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
with dbgrideh1 do
  begin
      Canvas.Pen.Mode:=pmmask;
          if gdSelected in State  then
            begin
              Canvas.Brush.Color:=clinfobk;
              Canvas.FillRect(Rect);
              Canvas.Font.Color:=clred;
              Canvas.Font.Style:=[fsBold];
            end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

procedure Tkcqkcxfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tkcqkcxfrm.BitBtn4Click(Sender: TObject);
var
kd:textfile;
kcFile,kcqk,shpname:string;
menb:integer;
begin
   menb:=0;
    try
       kcFile:=ExtractFilePath(Application.ExeName)+'kc.txt';
       AssignFile(kd,kcFile);
       Rewrite(kd);
       write(kd,chr(27)+chr(64));
       shpname:=stringofchar(' ',(32-Length(ini_load_shopname('打印参数','和祥店')))div 2)+ini_load_shopname('打印参数','和祥店');
       write(kd,shpname+chr(10));
       kcqk:=stringOfChar(' ',(32-Length('牧羊人服饰'+formatdatetime('yyyy"年"mm"月"dd"日"',date)+'库存清单')) div 2)+'牧羊人服饰'+formatdatetime('yyyy"年"mm"月"dd"日"',date)+'库存清单';
       write(kd,kcqk+chr(10));
       writeln(kd,'--------------------------------');
               //  12345678901234567890123456789012
         write(kd,'商品条形码           库存数量   '+chr(10));
         write(kd,'--------------------------------');
         Dataman.dcQuery.First;
         while not Dataman.dcQuery.Eof do
           begin
            write(kd,dbgrideh1.DataSource.DataSet.FieldByName('货物条形码').Value:15);
            write(kd,dbgrideh1.DataSource.DataSet.FieldByName('库存数量').Value:10);
            menb:=menb+Dataman.dcQuery.Fields[1].Value;
            write(kd,chr(10));
            Dataman.dcQuery.Next;
          end;
            Writeln(kd,'              ');
            write(kd,'-------------------------------');
            Writeln(kd,'库存总共有'+inttostr(menb)+'件');
            Writeln(kd,'              ');
            Writeln(kd,'              ');
            Writeln(kd,'              ');
            Writeln(kd,'              ');
            Writeln(kd,'              ');
            Writeln(kd,'              ');
            CloseFile(kd);
            PrintFile(kcFile);
    except
     abort;
    end;
end;

procedure Tkcqkcxfrm.ComboBox1Enter(Sender: TObject);
begin
ComboBox1.Color:=clSkyBlue;
end;

procedure Tkcqkcxfrm.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.Color:=clWindow;
end;

procedure Tkcqkcxfrm.Edit5Enter(Sender: TObject);
begin
Edit5.Color:=clSkyBlue;
end;

procedure Tkcqkcxfrm.Edit5Exit(Sender: TObject);
begin
 Edit5.Color:=clWindow;
end;

procedure Tkcqkcxfrm.Edit1Exit(Sender: TObject);
begin
  Edit1.Color:=clWindow
end;

procedure Tkcqkcxfrm.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=clSkyBlue;
end;

end.