xscxwh1.pas

来自「思微POS连锁超市管理系统 (商业代码),几年前的东西了」· PAS 代码 · 共 179 行

unit xscxwh1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, EHGrids, DBGridEh, DBTables, Mask, ToolEdit, CurrEdit,
  ComCtrls, ExtCtrls, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid,
  dxCntner, ADODB, Buttons, dxPSCore, dxPSdxTLLnk, dxPSdxDBCtrlLnk,
  dxPSdxDBGrLnk;

type
  Txscxwh = class(TForm)
    DataSource1: TDataSource;
    Table1: TADOTable;
    Query1: TADOQuery;
    Table1spcode: TStringField;
    Table1name: TStringField;
    Table1unit: TStringField;
    Table1barcode: TStringField;
    Table1cxj: TCurrencyField;
    Table1lsj: TCurrencyField;
    Table1id: TIntegerField;
    dxDBGrid1: TdxDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    RxCalcEdit1: TRxCalcEdit;
    Button1: TButton;
    Button2: TButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    Label7: TLabel;
    dxComponentPrinter1: TdxComponentPrinter;
    dxComponentPrinter1Link1: TdxDBGridReportLink;
    BitBtn4: TBitBtn;
    dxDBGrid1spcode: TdxDBGridMaskColumn;
    dxDBGrid1name: TdxDBGridMaskColumn;
    dxDBGrid1jldw: TdxDBGridMaskColumn;
    dxDBGrid1barcode: TdxDBGridMaskColumn;
    dxDBGrid1cxj: TdxDBGridCurrencyColumn;
    dxDBGrid1lsj: TdxDBGridCurrencyColumn;
    dxDBGrid1id: TdxDBGridMaskColumn;
    Table1rq_s: TStringField;
    Table1rq_e: TStringField;
    Table1time_s: TStringField;
    Table1time_e: TStringField;
    dxDBGrid1rq_s: TdxDBGridMaskColumn;
    dxDBGrid1rq_e: TdxDBGridMaskColumn;
    dxDBGrid1time_s: TdxDBGridMaskColumn;
    dxDBGrid1time_e: TdxDBGridMaskColumn;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Exit(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RxCalcEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xscxwh: Txscxwh;

implementation

uses MainForm1;

{$R *.DFM}

procedure Txscxwh.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
  begin
    RxCalcEdit1.SetFocus;
  end;
end;

procedure Txscxwh.Edit1Exit(Sender: TObject);
begin
  if Edit1.text = '' then exit;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('select name,lsj,code,cxj from spda where code=:code or barcode=:code');
  Query1.Parameters[0].Value := Edit1.text;
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    application.MessageBox('没有此商品.', '错误', MB_OK + MB_ICONERROR);
    Label2.Caption := '商品名称';
    Edit2.Clear;
    Edit1.SetFocus;
    Button1.Enabled := false;
    exit;
  end;
  Label2.Caption := Query1.fields[0].asstring;
  Edit2.Text := Query1.fields[1].asstring;
  Edit1.Text := Query1.fields[2].asstring;
  RxCalcEdit1.Text := Query1.fields[3].asstring;
  Button1.Enabled := true;
end;

procedure Txscxwh.Button1Click(Sender: TObject);
begin
  if Edit1.text = '' then exit;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('insert into xscx_t(spcode,cxj,rq_s,rq_e,time_s,time_e)');
  Query1.sql.add('values (:spcode,:cxj,:rq_s,:rq_e,:time_s,:time_e)');
  Query1.Parameters[0].Value := Edit1.text;
  Query1.Parameters[1].Value := RxCalcEdit1.Value;
  Query1.Parameters[2].Value := formatdatetime('yyyy-mm-dd', DateTimePicker1.date);
  Query1.Parameters[3].Value := formatdatetime('yyyy-mm-dd', DateTimePicker2.date);
  Query1.Parameters[4].Value := formatdatetime('HH:mm:ss', DateTimePicker3.date);
  Query1.Parameters[5].Value := formatdatetime('HH:mm:ss', DateTimePicker4.date);
  Query1.ExecSQL;
  Table1.Close;
  Table1.Open;
  Table1.Last;
  Button1.Enabled := false;
  Edit1.SetFocus;
  Edit1.Clear;
  Edit2.Clear;
  Label2.Caption := '商品名称';
  RxCalcEdit1.Clear;
end;

procedure Txscxwh.RxCalcEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then Button1.SetFocus;
end;

procedure Txscxwh.Button2Click(Sender: TObject);
begin
  if Table1.RecordCount = 0 then exit;
  if Application.MessageBox('是否删除当前记录？', '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('delete from xscx_t where id=:id');
  Query1.Parameters[0].Value := Table1.fieldbyname('id').asinteger;
  Query1.ExecSQL;
  Table1.close;
  Table1.open;
end;

procedure Txscxwh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure Txscxwh.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date := Now();
  DateTimePicker2.Date := Now();
end;

procedure Txscxwh.BitBtn4Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
end;

end.