pasrkcx1.pas

一个图书批发商的通用软件

unit pasrkcx1;

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
  Trkcx1 = 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 dxBarButton1Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton5Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rkcx1: Trkcx1;

implementation

{$R *.dfm}

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

procedure Trkcx1.FormDestroy(Sender: TObject);
begin
  rkcx1:=nil;
end;

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

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

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

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

procedure Trkcx1.dxBarButton1Click(Sender: TObject);
begin
 ADOQuery4.Append;
end;

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

procedure Trkcx1.dxBarLargeButton3Click(Sender: TObject);
begin
  ADOQuery4.Delete;
end;

procedure Trkcx1.dxBarLargeButton5Click(Sender: TObject);
begin
  ADOQuery4.Close;
  ADOQuery4.Open;                          
end;

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

end.