cssz1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit cssz1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, AliasEd, dxCntner, dxEditor, dxEdLib, dxDBELib,
  wwSpeedButton, wwDBNavigator, ExtCtrls, wwclearpanel, Buttons, IniFiles;

type
  Tcssz = class(TForm)
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    AliasEditor1: TAliasEditor;
    Table1: TTable;
    DataSource1: TDataSource;
    dxDBEdit1: TdxDBEdit;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    Table2: TTable;
    DataSource2: TDataSource;
    GroupBox2: TGroupBox;
    dxDBEdit2: TdxDBEdit;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    dxDBEdit3: TdxDBEdit;
    BitBtn2: TBitBtn;
    Table3: TTable;
    DataSource3: TDataSource;
    dxDBEdit4: TdxDBEdit;
    Table19: TTable;
    Table19code: TStringField;
    Table19name: TStringField;
    BatchMove10: TBatchMove;
    Table20: TTable;
    Label1: TLabel;
    Query1: TQuery;
    Table1posid: TStringField;
    Table2xsid: TStringField;
    Database1: TDatabase;
    Memo2: TMemo;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Table1AfterPost(DataSet: TDataSet);
  private
    zt: integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cssz: Tcssz;

implementation

uses main1, printcom1, jscssj1;

{$R *.DFM}

procedure Tcssz.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 27 then close;
end;

procedure Tcssz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if zt = 1 then Main.N12.Click;
  action := cafree;
end;

procedure Tcssz.FormActivate(Sender: TObject);
var Link: Tinifile;
  ch: string;
begin
  try
     Database1.Connected := false;
    Link := Tinifile.Create(ExtractFilePath(Paramstr(0)) + 'Link.ini');
    ch := 'server';
    if  AliasEditor1.Exists(ch) = false then
       AliasEditor1.Add(ch, 'MSSQL', Memo1.Lines);
     Database1.AliasName := 'posserver';
     Database1.DatabaseName := 'server';
     Database1.Params.Text := 'DATABASE NAME=' + Link.Readstring('SERVER', 'DATABASE NAME', 'lxf');
     Database1.Params.Add('SERVER NAME=' + Link.Readstring('SERVER', 'SERVER NAME', '.'));
     Database1.Params.Add('USER NAME=' + Link.Readstring('SERVER', 'USER NAME', 'sa'));
     Database1.Params.Add('PASSWORD=' + Link.Readstring('SERVER', 'PASSWORD', 'sa'));
    Link.Destroy;
    Database1.Connected := true;
    Table1.Open;
    Table2.Open;
    Table3.Open;
  except
    Application.MessageBox('连接数据库失败,请检查数据库是否启动' + #13 + '或配置文件Link.ini是否正确.', '错误', MB_OK + MB_ICONERROR);
    exit;
    close;
  end;
end;


procedure Tcssz.BitBtn2Click(Sender: TObject);
begin
  Table3.close;
  BatchMove10.Execute;
  Table3.Open;
  zt := 1;
end;

procedure Tcssz.BitBtn1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.sql.clear;
  Query1.sql.add('select max(xsid) from spxs_m where posid=:posid');
  Query1.ParamByName('posid').asstring := Table1posid.Value;
  Query1.Open;
  Table2.Edit;
  if Query1.Fields[0].IsNull then
  begin
    Table2xsid.Value := '8' + Table1posid.Value + '1000000';
  end
  else
  begin
    Table2xsid.Value := floattostr(Query1.Fields[0].Asfloat + 1);
  end;
  Table2.post;
  zt := 1;
end;

procedure Tcssz.Table1AfterPost(DataSet: TDataSet);
begin
  zt := 1;
end;

end.