jswcunt.pas

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

unit jswcunt;

interface

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

type
  Tjswcfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jswcfrm: Tjswcfrm;

implementation

uses mainunt,maind, data;

{$R *.dfm}

procedure Tjswcfrm.FormActivate(Sender: TObject);
begin
   jswcfrm.ClientHeight:=171;
   jswcfrm.ClientWidth:=270;
   edit1.SetFocus;
   edit1.Text:='';
   edit2.Text:='';
end;

procedure Tjswcfrm.SpeedButton1Click(Sender: TObject);
begin
close;
end;

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

procedure Tjswcfrm.BitBtn1Click(Sender: TObject);
var
  l:integer;
  f:TextFile;
  OutFile,shop:string;
begin
timer1.Enabled:=false;
// 以下是打印程序
    try
        with   main do
         begin
           OutFile:=ExtractFilePath(Application.ExeName)+'output.txt';
           AssignFile(F, OutFile);
           Rewrite(F);
           write(f,chr(27)+chr(64));
           shop:=stringOfChar(' ',(32-Length('牧羊人服饰购物清单')) div 2)+'牧羊人服饰购物清单';
           write(f,shop+chr(10));
           write(f,'--------------------------------'+chr(10));
           write(f,ini_load_title('打印参数','欢迎惠顾')+chr(10));
           write(f,'收银员 :'+edit8.text+'     日期:'+edit9.text+chr(10));
           writeln(f,'单号'+' : '+sellno+chr(10));
          // write(f,'--------------------------------'+chr(27)+'p'+'5');
         //           12345678901234567890123456789012
             Write(F,'商品条形码   数量 单价 折扣 金额'+chr(10));
             Write(F,'--------------------------------');
             for l:=1 to 12 do
             begin
              if  trim(stringgrid1.Cells[1,l])='' then break;
                write(f,stringgrid1.cells[1,l]:15);
                write(f,''+stringgrid1.cells[2,l]:4);
                write(f,''+stringgrid1.cells[3,l]:4);
                write(f,''+stringgrid1.cells[4,l]:4);
                write(f,''+stringgrid1.cells[5,l]:5);
                write(f,chr(10));
             end;
           Writeln(F,'              ');
           Write(F,'--------------------------------');
           write(f,'数量 :'+' '+edit13.text+'    '+'总金额 :'+jswcfrm.label2.caption+' '+'元'+chr(10));
           write(f,'实收现金 :'+jswcfrm.edit1.text+'元'+' '+'应找现金 :'+jswcfrm.edit2.text+'元'+chr(10));
           write(f,'牧羊人服饰各分店地址'+' : '+chr(10));
           Write(F,ini_load_addr1('打印参数','牧羊人服饰')+'  '+ini_load_tel1('打印参数','牧羊人服饰')+chr(10));
           Write(F,ini_load_addr2('打印参数','牧羊人服饰')+'  '+ini_load_tel2('打印参数','牧羊人服饰')+chr(10));
           Write(F,ini_load_addr3('打印参数','牧羊人服饰')+'  '+ini_load_tel3('打印参数','牧羊人服饰')+chr(10));
           write(f,stringOfChar('=',(32-Length(ini_load_footer('打印参数','你的满意,我的服务'))) div 2)+ini_load_footer('打印参数','你的满意,我的服务')+stringOfChar('=',(32-Length(ini_load_footer('打印参数','你的满意,我的服务'))) div 2));
           Writeln(F,'              ');
           Writeln(F,'              ');
           Writeln(F,'              ');
           Writeln(F,'              ');
           Writeln(F,'              ');
           CloseFile(f);
           PrintFile(Outfile);
        end;
    except
     abort;
    end;
   main.vat_ini;
timer1.Enabled:=false;
jswcfrm.close;

end;

procedure Tjswcfrm.Timer1Timer(Sender: TObject);
begin
  if strtointdef(edit1.Text,0)<strtointdef(label1.Caption,0) then exit;
  if strtointdef(label2.Caption,0)>0 then
      edit2.Text:=inttostr(strtointdef(edit1.Text,0)-strtointdef(label2.Caption,0))
  else
  edit2.Text:=inttostr(-(strtointdef(label2.Caption,0)-strtointdef(edit1.Text,0)));
end;

procedure Tjswcfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
jswcfrm:=nil;
jswcfrm.Free;
end;

end.