unit7.~pas

delphi阿涛印花厂,有关于打印的印花厂源码

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, ComCtrls,login;

type
  TForm7 = class(TForm)
    Label4: TLabel;
    Label2: TLabel;
    Label1: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit4: TEdit;
    dt1: TDateTimePicker;
    ComboBox3: TComboBox;
    DBGrid2: TDBGrid;
    Button2: TButton;
    Edit3: TEdit;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery5: TADOQuery;
    Button1: TButton;
    Button3: TButton;
    Label3: TLabel;
    Edit2: TEdit;
    Button4: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.FormShow(Sender: TObject);
var i:integer;
begin
adoquery2.Close;
adoquery2.SQL.Text:='select khid,khname from khb order by khid';
adoquery2.Open;
for i:=1 to adoquery2.RecordCount do
  begin
    combobox3.Items.Add(adoquery2.Recordset.Fields[0].value+'      '+adoquery2.Recordset.Fields[1].value);
    adoquery2.Next;
  end;
combobox3.ItemIndex:=1;
combobox3.SetFocus;
dt1.Date:=date();
adoquery1.Close;
adoquery1.SQL.Text:='select * from chb where rq=:a';
adoquery1.Parameters[0].Value:=trim(datetostr(dt1.Date));
adoquery1.Open;
end;

procedure TForm7.Button2Click(Sender: TObject);
begin
if combobox3.ItemIndex<>0 then
begin
if (trim(edit1.Text)<>'') and (trim(edit1.Text)<>'') and (trim(edit1.Text)<>'') and (trim(edit1.Text)<>'')  then
begin
adoquery2.Close;
adoquery2.SQL.Text:='insert into chb(khh,khm,rq,hy,dj,sl,ze,yf) values(:a,:b,:c,:d,:e,:f,:g,:h)';
adoquery2.Parameters[0].Value:=trim(copy(combobox3.text,1,3));
adoquery2.Parameters[1].Value:=trim(copy(combobox3.text,5,16));
adoquery2.Parameters[2].Value:=trim(datetostr(dt1.Date));
adoquery2.Parameters[3].Value:='DH'+trim(edit1.Text);
adoquery2.Parameters[4].Value:=edit4.Text;
adoquery2.Parameters[5].Value:=strtoint(edit3.Text);
adoquery2.Parameters[6].Value:=strtoint(edit3.Text)*strtofloat(edit4.text);
adoquery2.Parameters[7].Value:=strtoint(edit2.Text);
adoquery2.ExecSQL;
adoquery1.Close;
adoquery1.SQL.Text:='select * from chb where rq=:a';
adoquery1.Parameters[0].Value:=trim(datetostr(dt1.Date));
adoquery1.Open;
edit1.Clear;
edit4.Clear;
edit3.Clear;
edit2.Text:='0';
end
else
 BEGIN
 showmessage('信息输入不全,请重新输入');
 COMBOBOX3.SetFocus;
 END;
end
else
 begin
 showmessage('请选择客户');
 combobox3.SetFocus;
 end;
end;

procedure TForm7.Button1Click(Sender: TObject);
begin
if button1.Caption='取消' THEN
 BEGIN
 ADOQUERY1.CancelBatch();
 DBGRID2.ReadOnly:=TRUE;
 BUTTON1.Caption:='修改';
 BUTTON3.ENABLED:=FALSE;
 END
ELSE
 BEGIN
  dbgrid2.ReadOnly:=false;
  button3.Enabled:=true;
  BUTTON1.Caption:='取消';
  END;
end;

procedure TForm7.Button3Click(Sender: TObject);
begin
adoquery1.UpdateBatch();
dbgrid2.ReadOnly:=true;
button3.Enabled:=false;
end;

procedure TForm7.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#13,'.',#8]) then
 begin
   key:=#0;
   exit;
 end;
if key=#13 then
 if trim(edit4.Text)='' then
  showmessage('请输入单价')
  else
   edit3.SetFocus;
end;

procedure TForm7.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#13,'.',#8]) then
 begin
   key:=#0;
   exit;
 end;
if key=#13 then
 if trim(edit3.Text)='' then
  showmessage('请输入数量')
  else
   edit2.SetFocus;
end;

procedure TForm7.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#13,'.',#8]) then
 begin
   key:=#0;
   exit;
 end;
if key=#13 then
 if trim(edit1.Text)='' then
  showmessage('请输入预付金额')
  else
  BEGIN
   button2.Click;
   COMBOBOX3.SetFocus;
  END; 
end;

procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 if trim(edit1.Text)='' then
  showmessage('请输入花样名')
  else
   edit4.SetFocus;
end;

procedure TForm7.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 if trim(combobox3.Text)<>'' then
   edit1.SetFocus
 else
  showmessage('请选择客户')  
end;

procedure TForm7.Button4Click(Sender: TObject);
begin
adoquery1.Close;
if combobox3.ItemIndex<>0 then
begin
adoquery1.SQL.Text:='select * from chb where khh=:a order by rq';
adoquery1.Parameters[0].Value:=trim(copy(combobox3.text,1,3));
end
else
adoquery1.SQL.Text:='select * from chb order by rq';
adoquery1.Open;


end;

end.