datacs_unit.pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit DATACS_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Mask, DBCtrlsEh;

type
  TDATACS_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADOCo: TADOConnection;
    ADOQCS: TADOQuery;
    DBEditEh1: TDBEditEh;
    DBEditEh2: TDBEditEh;
    DBEditEh3: TDBEditEh;
    DBEditEh4: TDBEditEh;
    Button3: TButton;
    Button4: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DATACS_Form: TDATACS_Form;

implementation

uses MainUnit, DMUnit;

{$R *.dfm}

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

procedure TDATACS_Form.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TDATACS_Form.Button1Click(Sender: TObject);
var
  S:string;
  DB:string;
begin
  ADOCo.Connected:=false;
  ADOCo.ConnectionString:='';
  if (Trim(DBEditEh1.Text)='') then
    begin
      ShowMessage('请输入服务器名称!');
      Exit;
    end;
  if (Trim(DBEditEh2.Text)='') then
    begin
      ShowMessage('请输入数据库名称!');
      Exit;
    end;
  if (Trim(DBEditEh3.Text)='') then
    begin
      ShowMessage('请输入数据库用户名!');
      Exit;
    end;
Try
  MainForm.DATACS:=S;
  S:='Provider=SQLOLEDB.1;Persist Security Info=False;';
  S:=S+' User ID='+DBEditEh3.Text+';PASSWORD='+DBEditEh4.Text+';Initial Catalog='+DBEditEh2.Text+';Data Source='+DBEditEh1.Text;
  MainForm.DATACS:=S;
  ADOCo.ConnectionString:=S;
  ADOCo.Connected:=True;
  ShowMessage('连接数据库成功!');
Except
  ShowMessage('配置错误,连接失败!');
end;


end;

procedure TDATACS_Form.FormCreate(Sender: TObject);
begin
  with DM.CS_ADOQ do
  begin
    Close;
    SQL.Clear;
    SQl.Add('SELECT * FROM CS_ITEM');
    Open;
  end;
end;

procedure TDATACS_Form.Button3Click(Sender: TObject);
begin
  if DM.CS_ADOQ.State in [DSBROWSE] then
     DM.CS_ADOQ.Edit;
end;

procedure TDATACS_Form.Button4Click(Sender: TObject);
begin
  if DM.CS_ADOQ.State in [DSEDIT] then
     DM.CS_ADOQ.Post;
end;

end.