pasxscx1.pas

来自「一个图书批发商的通用软件」· PAS 代码 · 共 140 行

unit pasxscx1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxCntner, dxEditor, dxEdLib, cxControls, cxContainer,
  cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
  cxDBLookupEdit, ExtCtrls, dxBar, dxBarExtItems, ComCtrls, Grids, DBGrids,
  DB, ADODB,data;

type
  Txscx1 = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarLargeButton6: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label7: TLabel;
    Label8: TLabel;
    cxLookupComboBox2: TcxLookupComboBox;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DBGrid2: TDBGrid;
    Splitter1: TSplitter;
    ADOQuery3: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery4: TADOQuery;
    DataSource3: TDataSource;
    dxBarButton1: TdxBarButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cxLookupComboBox2PropertiesChange(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure ADOQuery3AfterScroll(DataSet: TDataSet);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xscx1: Txscx1;

implementation

{$R *.dfm}

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

procedure Txscx1.FormDestroy(Sender: TObject);
begin
  xscx1:=nil;
end;

procedure Txscx1.FormCreate(Sender: TObject);
begin
  ADOQuery1.Open;
end;

procedure Txscx1.cxLookupComboBox2PropertiesChange(Sender: TObject);
var stemp:string;
begin
  stemp:=trim(cxLookupComboBox2.Text);
  ADOQuery2.Close;
  ADOQuery2.SQL.Text:='select ClientName from tbClient where ClientId='''+stemp+'''';
  ADOQuery2.Open;
  Edit2.Text:=ADOQuery2.Fields[0].asstring;
end;

procedure Txscx1.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
  if RadioButton3.Checked then
   stemp:='select * from tbSaleUnit';
  if RadioButton1.Checked then
    stemp:='select * from tbSaleUnit where UnitName like ''%'+trim(edit2.Text)+'%''';
  if RadioButton2.Checked then
    stemp:='select * from tbSaleUnit where (SaleDate>'+datetostr(DateTimePicker1.Date)+') and (SaleDate<'+datetostr(DateTimePicker1.Date+1)+')';
  ADOQuery3.Close;
  ADOQuery3.SQL.Text:=stemp;
  ADOQuery3.Open;
end;

procedure Txscx1.ADOQuery3AfterScroll(DataSet: TDataSet);
begin
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select * from tbSaleSubs where SaleId='''+ADOQuery3.fieldbyname('SaleId').AsString+'''';
  ADOQuery4.Open;
end;

procedure Txscx1.dxBarLargeButton4Click(Sender: TObject);
begin
  close;
end;

procedure Txscx1.dxBarLargeButton2Click(Sender: TObject);
begin
   if ADOQuery3.State in dseditmodes then ADOQuery3.Post ;
  if ADOQuery4.State in dseditmodes then ADOQuery4.Post ;

end;

procedure Txscx1.dxBarButton1Click(Sender: TObject);
begin
  adoquery4.Append;
end;

procedure Txscx1.dxBarLargeButton3Click(Sender: TObject);
begin
  adoquery4.Delete;
end;

procedure Txscx1.dxBarLargeButton5Click(Sender: TObject);
begin
  adoquery4.Close;
  adoquery4.Open;
end;

end.