areainfo.~pas

是一款针对啤酒行业的销售进销存管理系统,包括基本的进货,销售,库存

unit AreaInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, StdCtrls, PicButton, ExtCtrls;

type
  TAreaP = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    PicButton1: TPicButton;
    PicButton2: TPicButton;
    PicButton3: TPicButton;
    PicButton4: TPicButton;
    PicButton7: TPicButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ListView1: TListView;
    Query1: TADOQuery;
    ComboBox1: TComboBox;
    Label5: TLabel;
    ComboBox2: TComboBox;
    procedure PicButton7Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PicButton1Click(Sender: TObject);
    procedure PicButton2Click(Sender: TObject);
    procedure PicButton3Click(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  AreaP: TAreaP;

  strID:string;
implementation

{$R *.dfm}
uses common;

///////定义显示记录的函数结束////
procedure TAreaP.PicButton7Click(Sender: TObject);
begin
    close;
end;

procedure TAreaP.Image2Click(Sender: TObject);
begin
    close;
end;

procedure TAreaP.FormCreate(Sender: TObject);
begin
     ShowPloyForm(image1.picture.Bitmap,handle);
     edit1.Text:=inttostr(getrscount(query1,'sysTable')+1);

       ///初始化listview1控件列的宽度///
       ListView1.Columns[0].Width:=40;
       ListView1.Columns[1].Width:=150;
       ListView1.Columns[2].width:=100;
       ListView1.Columns[3].width:=100;
       FillValueToListView(query1,'select * from sysTable',0,listview1);
       combobox1.Items.Add('辽阳');
       combobox1.Items.Add('沈阳');
       combobox1.Items.Add('本溪');
       combobox1.Items.Add('大连');
       combobox1.Items.Add('鞍山');
       combobox1.Items.Add('抚顺');
       combobox1.Items.Add('丹东');
       combobox1.Items.Add('北京');
       combobox1.text:='辽阳';
       FillValueToControl(query1,'SELECT  DISTINCT Name  FROM  clerkTable','Name',combobox2);
end;

procedure TAreaP.PicButton1Click(Sender: TObject);
var
   strSql:string;
   strInsert:string;
begin
     strSql:='SELECT * FROM  sysTable  WHERE CODE="'+TRIM(EDIT1.Text)+'"';

    if edit1.text<>'' then
    begin
       if Messagedlg('确定是否存盘？',mtconfirmation,[mbyes,mbno],0)=mryes then
       begin
          if isRunSql(query1,strSql) then
          begin
             showmessage('此编号记录已经存在...');
          end
          else
             begin
                 strInsert:='Insert into  sysTable(code,Param0,Param1,param2) values("'+trim(edit1.Text)+'","'+trim(Edit2.Text)+'","'+trim(combobox1.text)+'","'+trim(combobox2.text)+'")';
                 runNonSql(query1,strInsert);
                 FillValueToListView(query1,'select * from sysTable',0,listview1);

             end;
       end;
    end
    else
       begin
           showmessage('请输入编号...');
       end;
end;

procedure TAreaP.PicButton2Click(Sender: TObject);
var
   strUpdate:string;
begin
      if messagedlg('确定是否更新?',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
       strUpdate:='Update sysTable  set  code="'+trim(edit1.Text)+'",Param0="'+trim(edit2.Text)+'",param1="'+trim(combobox1.text)+'",param2="'+trim(combobox2.Text)+'"   where  code="'+strID+'"';
       RunNonSql(query1,strUpdate);
       FillValueToListView(query1,'select * from sysTable',0,listview1);
    end;

end;

procedure TAreaP.PicButton3Click(Sender: TObject);
var
   strDelete:string;
begin
      if Messagedlg('确定是否删除?',mtconfirmation,[mbyes,mbno],0)=mryes then
     begin
        strDelete:='DELETE *  FROM  sysTable  WHERE  CODE="'+strID+'"';
        RunNonSql(query1,strDelete);
        FillValueToListView(query1,'select * from sysTable',0,listview1);
     end;
end;

procedure TAreaP.ListView1DblClick(Sender: TObject);
var
   listitem:Tlistitem;
begin
      listitem:=listview1.Items.Add;
      edit1.Text:=listview1.Selected.Caption;
      strID:=listview1.Selected.Caption;
      edit2.Text:=listview1.Selected.SubItems.Strings[0];

      combobox1.Text:=listview1.Selected.SubItems.Strings[1];
      combobox2.Text:=listview1.Selected.SubItems.Strings[2];
      //edit3.Text:=listview1.Selected.SubItems.Strings[2];
      
end;

end.