uliaochen_m.pas

这是一个三层的进销存系统

unit uliaochen_m;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseInfo_m, StdCtrls, wwcheckbox, Mask, wwdbedit, DBCtrls, DB,
  DBClient, Wwdotdot, Wwdbcomb;

const
  WM_USER_RLIST = WM_USER+1024;

type
  Tfrmliaochen_m = class(Tfrmbaseinfo_m)
    Label2: TLabel;
    wwDBEdit1: TwwDBEdit;
    Label3: TLabel;
    wwDBEdit2: TwwDBEdit;
    Label4: TLabel;
    wwDBEdit3: TwwDBEdit;
    Label5: TLabel;
    wwDBEdit4: TwwDBEdit;
    wwCheckBox1: TwwCheckBox;
    wwCheckBox2: TwwCheckBox;
    wwCheckBox3: TwwCheckBox;
    Label6: TLabel;
    wwDBEdit5: TwwDBEdit;
    GroupBox1: TGroupBox;
    Button4: TButton;
    CDSrlist: TClientDataSet;
    slist: TListBox;
    dlist: TDBMemo;
    Label7: TLabel;
    daylist: TwwDBComboBox;
    Label8: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    procedure rlist(var Rlist:Tmessage);message WM_USER_RLIST;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmliaochen_m: Tfrmliaochen_m;

implementation

uses common, uliaochen;

{$R *.dfm}

procedure Tfrmliaochen_m.FormCreate(Sender: TObject);
begin
  inherited;
  Maintable:='tliaochen';
  Masterfield:='fcode';
end;

procedure Tfrmliaochen_m.rlist(var Rlist: Tmessage);
begin
  GetallData(CDSrlist,'vServerproj','fid',20);
  while not CDSrlist.Eof do
    begin
      slist.Items.Add(CDSrlist.fieldbyname('fname').AsString);  
      CDSrlist.Next;
    end;
  Application.ProcessMessages;
end;

procedure Tfrmliaochen_m.FormShow(Sender: TObject);
var
  i:integer;
begin
  inherited;
  postmessage(handle,WM_USER_RLIST,0,0);
  for i:=1 to 31 do
    begin
      daylist.Items.Add(inttostr(i));  
    end;
end;

procedure Tfrmliaochen_m.Button4Click(Sender: TObject);
var
  i:integer;
begin
  inherited;
  if Slist.Items.Count = 0 then Exit;
  for i:=0 to Slist.Items.Count - 1 do
    begin
      if Slist.Selected[i] then
        dlist.Lines.Add(sList.Items.Strings[i]);
    end;
end;

end.